연습문제 3.8

(define f
  (let ((inner-v 1))
    (lambda (v)
      (begin
        (set! inner-v (* inner-v v))
        inner-v))))