Update p21.hs