[Haskell-beginners] combine concatMap and mapM