module Pretty where


class Pretty a where
  prettysPrec :: Int -> a -> ShowS

prettyPrec :: Pretty a => Int -> a -> String
prettyPrec d x = prettysPrec d x ""

pretty :: Pretty a => a -> String
pretty x = prettyPrec 0 x