{-# htermination foldM_ :: (a -> b -> Maybe a) -> a -> [b] -> Maybe () #-}
import Monad