(define explode
  (lambda (symbole)
    (map (lambda (char) (string->symbol (make-string 1 char)))
         (string->list (symbol->string symbole)))))

(define dico
      '(aime auge baie brie bris bure cage cale came cape
        cime cire cris cure dame dime dire ducs dues duos
        dure durs fart fors gage gaie gais gale gare gars
        gris haie hale hors hure iris juge jure kart laie
        lame lime lire loge luge mage maie male mare mari
        mars mere mers mime mire mors muet mure murs nage
        orge ours page paie pale pame pane pape pare pari
        part paru pere pers pipe pire pore prie pris pues
        purs rage raie rale rame rape rare rime rire sage
        saie sale sape sari scie sure taie tale tape tare
        tari tige toge tore tors tort trie tris troc truc))

(define *lesderivees*
  '((cos (- (sin x)))
    (sin (cos x))
    (tan (1 / ((cos x) ^ 2)))
    (ln (1 / x))))