Update p1_10.hs