Update p3.hs