5
| Val_bool�enne of bool
6
| Val_paire of valeur * valeur
8
| Val_cons of valeur * valeur
9
| Val_fermeture of fermeture
10
| Val_primitive of (valeur -> valeur)
13
{ d�finition : (motif * expression) list;
14
mutable environnement : environnement }
16
and environnement = (string * valeur) list;;
18
val �value: environnement -> expression -> valeur;;
19
val �value_d�finition: environnement -> d�finition -> environnement;;
20
val imprime_valeur: valeur -> unit;;
22
exception Erreur of string;;