(define contour
  (lambda (x y)
    (let ([z (+ x y)])
      (lambda (x z)
	(let ([x (let ([x (+ x y z)]
		       [y 11])
		   (+ x y z))])
	  (+ x y z))))))