Create p2.hs