[cpsfold
martin.hofmann@uni-bamberg.de**20081203145728] hunk ./src/Data/Util.hs 11
+                 
+cpsfold f a [] = a
+cpsfold f a (x:xs) = f x a (\y -> cpsfold f y xs)
+                 