Create p23.hs