Update p1.hs