pe (TyApp (TyCon "Array#") [x])             = "mkArrayPrimTy " ++ ppType x
ppT
ppType (TyApp (TyCon "Array#") [x])             = "mkArrayPrimTy " ++ ppType x
ppType (TyApp (TyCon "Array#") [x])             = "mkArrayPrimTy " ++ ppType x