Update cps.hs