Use mapcat instead of (apply concat (map ...))