(define is-match-multi? (lambda (x) (let ((slgth (string-length (caddr x)))) (or (= 2 slgth) (= 3 slgth)))))