{-# htermination foldM :: (a -> b -> IO a) -> a -> [b] -> IO a  #-}
import Monad