Use (mapcat f s) instead of (apply concat (map f s))

Trivial change but slightly easier to read IMO.