#| BEGIN (Write your solution here) |#
(define (make-f)
  (let ([first? #t])                 ; mutable state, shared across calls
    (lambda (x)
      (if first?
          (begin (set! first? #f) x) ; first call returns its argument
          0))))                      ; later calls return 0
#| END |#