main = print (fldr (:) [1488] [1..10])

fldr (+) ac = ($ac) . foldl (\f x -> f . (\ac -> x + ac)) id