data Pair a a = { MkPair a a }