added mapM_ example