folder f a xs = foldM f a xs >> return ()