#| BEGIN (Write your solution here) |#
(define (make-f)
  (let ((x -1))
    (lambda (val)
      (if (eq? x -1) (begin (set! x val) val) 0))))
#| END |#