1 module Main where
    2 
    3 import Pretty
    4 
    5 main = putStr ((ppShow (80::Int) pretty_stuff) ++ "\n")
    6  where
    7   pretty_stuff = ppAboves [ ppBesides [ppInt (-42), ppChar '@', ppStr "This is a string"],
    8                             pp'SP,
    9                             ppHang (ppStr "This is the label")
   10                                 (8::Int) (ppCat (take (50::Int) pp_words)) ]
   11   pp_words = pp_word : pp_words
   12   pp_word = ppStr "xxxxx"