#| BEGIN (Write your solution here) |#
(define (make-f)
  (let ((flag 0))
    (lambda (x)
      (let ((y flag))
        (set! flag 1)
        (if (= y 0)
            x
            0)))))

#| END |#