main = print . take 10 $ fldr (:) [] [1..] fldr (+) ac = ($ac) . foldl (\f x -> f . (\ac -> x + ac)) id
Standard input is empty
Standard output is empty
prog: out of memory (requested 1048576 bytes)
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!