fork(1) download
  1. main = print (fldr (:) [1488] [1..10])
  2.  
  3. fldr (+) ac = ($ac) . foldl (\f x -> f . (\ac -> x + ac)) id
Success #stdin #stdout 0s 6272KB
stdin
Standard input is empty
stdout
[1,2,3,4,5,6,7,8,9,10,1488]