S3 Classes with format and print?

[krlmlr]

For instance:

dput(pretty_bytes(1000))
> structure(1000, class = "pretty_bytes")
print(pretty_bytes(1000))
> [1] "1 kB"

Would you support this kind of functionality? It might break compatibility, but then there are not many revdeps (yet) ;-)