Create p7.hs