(use agrep)

(define pat (string->pattern "text"))

(print (string-match pat "text" numerrs: 1))
(print (string-match pat "test" numerrs: 1))
(print (string-match pat "tesk" numerrs: 1))
(print (string-match pat "tesk" numerrs: 2))