#!r6rs (library (bs re (0)) (export match group) (import (rnrs base (6)) (ice-9 regex)) (define (match s pat) (string-match pat s)) (define (group m n) (if m (match:substring m n) #f)))