folder :: (a->a->a) -> a -> [a]-> a folder (#) e [] = e folder (#) e (x:xs) = x # folder (#) e xs main = print $ folder (+) 1 [1,4,7,3,67]