Create p22.hs