(define (caching f)
  (define ht (make-hash))
  (lambda (x)
    (let ((y (hash-ref ht x #f)))
      (hash-set! ht x (or y (f x))))
    y))