Create p1.hs