;(let
;	((predecessor (make-hash-table :size 20))
;	(dist-from-start (make-hash-table :size 20))
;	(pathlist (make-hash-table :size 20))
;	(start nil)
;	(goal nil)
;	(standing-at nil)))
;(labels
	
;	)

#'(lambda (output)
(print output)
'(u)
	)

(let ((path-predecessor-info (make-hash-table :size 20)) ))
