UHC.Util.PrettySimple
type PP_Doc
class PP a
disp
hPut
data Doc
(>|<)
(>-<)
(>#<)
hlist
hlistReverse
vlist
hv
fill
indent
empty
text
isSingleLine