(import (scheme base)
	(scheme write)
	(srfi 69))

(define names 
	(make-hash-table eq?))

(hash-table-set! names 'jmc "John McCarthy")
(hash-table-set! names 'gjs "Gerald Jay Sussman")

(display 
	(hash-table-keys names))