main = print (fldr (:) [1488] [1..10]) fldr (+) ac = ($ac) . foldl (\f x -> f . (\ac -> x + ac)) id
Standard input is empty
[1,2,3,4,5,6,7,8,9,10,1488]
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!