質問！クロージャのクロージャってどうやって作ればいいんですか？

(define (pn x) (display x) (newline))
(define (f a)
(let ((x a))
(lambda ()
(set! x (+ x 1))
(lambda (t)
(let ((y t))
(lambda ()
(set! y (+ y 1))
(display "x=")(pn x)
(display "y=")(pn y)
(+ x y)))))))
(define a (f 10))
(define b (a)) ;x=11になってほしいが・・x=12になる
(define b2 (a)) ;x=12
(define c (b 20))
(define d (b2 20))
(c)(c)(c) ;yは順調に育つよい子
(d)(d)(d) ;yは順調に育っよい子