(define (assoc_upper n liste)
  (let* (
         (n n)
         )
    (if (and (>= (char->integer n) 97) ( <=  (char->integer n) 122) )
        (assoc (integer->char (- (char->integer n) 32)) liste)
        (assoc n liste)
        )
    )
  )

; ===============================================================


(define (char->uppercase n)
  (if (and (>= (char->integer n) 97) ( <=  (char->integer n) 122) )
      (integer->char (- (char->integer n) 32))
      n
      )
  )