1 2 3 4 5 6 7 8 9
module CC.Pretty where class Pretty a where pretty :: a -> String instance Pretty Int where pretty = show