haskell - Looking for mapAccumLM -

i'm looking way use mapaccuml in io monad - analog of mapm, i.e. type signature:

mapaccumlm :: (monad m) => (a -> b -> m(a, c)) -> -> [b] -> m(a, [c])

any easy way this?

this mapm on statet io:

mapaccumlm f xs = runstatet (mapm (statet . f) xs)