;; fichier hash.scm

(define (hash nom n)
   (remainder
      (apply + (map char->integer (string->list nom)))
      n))