folder f a xs = Control.Monad.void (foldM f a xs)