gistfile1.txt

(define (rxmatch-substrings match)
  (if match
    (map (cut rxmatch-substring match <>) (iota (rxmatch-num-matches match)))
    '()))
(define (rxmatch-indices match)
  (if match
    (map (^i (cons (rxmatch-start match i) (rxmatch-end match i)))
         (iota (rxmatch-num-matches match)))
    '()))