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