change concat $ map to concatMap