Welcome to the CHICKEN Scheme pasting service

Code:

       	      (display (alist-keys i))
	      (display "\n---------------------------\n")
	      (display (alist-ref i 'key))

Result:

---------------------------

Error: Key not found -- ALIST-REF: key

	Call history:

	<syntax>	  (alist-ref i (quote key))
	<syntax>	  (quote key)
        .
        .
        .