(use suffix-tree)

(define t (make-suffix-tree char=? string->list ))

(define t1 ((t 'insert) "key1" 'test1))
(define t2 ((t1 'insert) "key2" 'test2))

(assert (equal? 'test1 ((t1 'lookup)  "key1")))
(assert (equal? 'test2 ((t2 'lookup)  "key2")))

(define t3 ((t2 'lookup/partial)  "key"))

(assert (equal? 'test1 ((t3 'lookup)  "1")))
(assert (equal? 'test2 ((t3 'lookup)  "2")))