37 -- This serves as the top-level module, with perhaps some instance
40 instance (Show a, Show b, Show c, Show d, Show e,Show f) =>
41 Show (a,b,c,d,e,f) where
42 showsPrec n (a,b,c,d,e,f) s = ('(' : ) $
43 showsPrec n a $ (',' :) $
44 showsPrec n b $ (',' :) $
45 showsPrec n c $ (',' :) $
46 showsPrec n d $ (',' :) $
47 showsPrec n e $ (',' :) $
48 showsPrec n f $ ')' : s