module Compat (module Data.Map, on) where
import Data.Map
on g f a b = g (f a) (f b)
instance Show (a,b,c,d,e,f)