(define (make-table n) (vector "*TABLE*" (make-vector n #f))) (define (cherche clef table) (vector-ref (vector-ref table 1) clef)) (define (insert! clef valeur table) (vector-set! (vector-ref table 1) clef valeur))