[Haskell-beginners] cps in yaht