Switched concat (map... to concatMap