;; matches "x" and "y" only (define custom-match (lambda (x) (and (string? x) (or (string=? x "x") (string=? x "y")))))