(module nw:chains
   (export
    (make-chain s)
    (chain-ref s i)
    (chain-set! s i c)
    (chain-length s)))
;; il nous faut des chaînes numérotées de 1 à longueur
;; de chaîne pour éviter trop de gymnastique mentale :
(define (make-chain s) ; prend une string et rend 
  s)                   ; un chaîne à partir de 1

(define (chain-ref s i)
  (string-ref s (- i 1)))

(define (chain-set! s i c)
  (string-set! s (- i 1) c))

(define (chain-length s)
  (string-length s))