monad []

1
2
3
instance  Monad []  where
  m >>= k          = concat (map k m)
  return x= [x]
2:22: Error: Use concatMap
Found:
concat (map k m)
Why not:
concatMap k m