Create p6.hs