apply-refact-0.1.0.0: tests/examples/Monad17.hs

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