#let counter = ref 0;;
counter : int ref = ref 0
#let add_counter n =
   counter := !counter + n;;
add_counter : int -> unit = <fun>
#let afficher mess =
   print_string mess;
   print_newline ();;
afficher : string -> unit = <fun>
#exception Division_par_zero;;
L'exception Division_par_zero est 
définie.
#let division x y = 
   if y = 0 then raise Division_par_zero
   else x / y;;
division : int -> int -> int = <fun>