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"