instance print Type where
print (TupleType (t1, t2)) = ["(":print t1] ++ [",":print t2] ++ [")"]
print (ListType t) = ["[":print t] ++ ["]"]
instance print Type where
print (TupleType (t1, t2)) = ["(":print t1] ++ [",":print t2] ++ [")"]
print (ListType t) = ["[":print t] ++ ["]"]