pe other
   = error ("ppType: can't handle: " ++ show other ++ "\n")

pp
ppType other
   = error ("ppType: can't handle: " ++ show other ++ "\n")
ppType other
   = error ("ppType: can't handle: " ++ show other ++ "\n")