no title added by logothesia on Sat Dec 16 21:09:05 2023

(let ((val (alist-ref var env eqv? (delay (k var)))))
  (if val
      (reduce val)
      val))