module Pretty where

import Data.List


class Pretty a where
    pretty :: a -> String
    pretty = prettyI 0

    prettyI :: Int -> a -> String


instance Pretty a => Pretty [a] where
    prettyI i l = "[" ++ intercalate ", " (map (prettyI i) l) ++ "]"