(define indirect-irx
(sre->irregex
- `(: (? (: ,preposition (+ space))) ; possibly a preposition (ignored)
+ `(: (? (: ,preposition (+ space))) ; possibly a preposition
(? (: ,article (+ space))) ; possibly an article (ignored)
(=> direct-obj (* any)) ; direct object (kept)
(+ space)