mapcat, not apply-concat/map
Fix regex for comparison.

Also fix #'token by adding some grouping:
otherwise the prepended ^ was applying only to the first option, when
the regex contains | alternators.
Simplify a parser rule