Update p2.hs