Create pair.hs