foldM_ f z s = foldM f z s >> return ()