Update Pairs.hs