;;; Procedure:
;;;   index
;;; Parameters:
;;;   val, a Scheme value
;;;   lst, a list
;;; Purpose: