;the idea behind the procedure is straightforward
;it only passes argument once, after that it returns zero no matter what
(define f
  (let ((s 1))
    (lambda (num)
    (if (= s 1)
        (begin (set! s 0) num)
        0))))