(define find-var
  (lambda (var)
	  (let ([r (assq var global-env)])
	    r)))