Create p10.hs