pe (TyUTup ts) = "(mkTupleTy Unboxed " 
                     ++ listify (map ppType ts) ++ ")"

pp
ppType (TyUTup ts) = "(mkTupleTy Unboxed " 
                     ++ listify (map ppType ts) ++ ")"
ppType (TyUTup ts) = "(mkTupleTy Unboxed " 
                     ++ listify (map ppType ts) ++ ")"