(define test
  (let ((x 1)
        (y 2))
    (lambda (u v w)
      (lambda (m)
        (cond ((= m 1)
               (set! x u)
               'set_x_fait)
              ((= m 2)
               x)
              ((= m 3)
               u)
              ((= m 4)
               (set! u 'changé)
               'set_u_fait)
              (else 'bonsoir))))))

(define test
  ((lambda (x y)
     (lambda (u v w)
       (lambda (m)
         (cond
           ((= m 1) (set! x u) 'set_x_fait)
           ((= m 2) x)
           ((= m 3) u)
           ((= m 4) (set! u 'changé) 'set_u_fait)
           (else 'bonsoir)))))
   1
   2))

'(define test1 (test 3 4 5))
(define test1 (test 3 4 5))
'(define test2 (test 6 7 8))
(define test2 (test 6 7 8))

'(test1 2)
(test1 2)
'(test2 2)
(test2 2)
'(test1 10)
(test1 10)
'(test1 1)
(test1 1)
'(test1 2)
(test1 2)
'(test2 2)
(test2 2)
'(test2 2)
(test2 2)
'(test2 3)
(test2 3)
'(test1 4)
(test1 4)
'(test1 3)
(test1 3)
'(test2 3)
(test2 3)