Create cps.hs