;; fichier repertoire-hash.scm

(define (Repertoire fichier)
   (let* ((tailleRepertoire (/ (compter-lignes fichier) 2))
	  (leRepertoire (make-vector tailleRepertoire '())))
      (ConstruireRepertoire fichier leRepertoire)
      (let boucle ()
	 (display "Nom ? ")
	 (let ((leNom (read-line)))
	    (if (> (string-length leNom) 0)
		(begin
		   (print (Recherche leNom leRepertoire))
		   (boucle)))))))