(*
--En entrée: une expression arithmétique de PP avec une seule variable "x"

-- En sortie: un programme assembleur qui lit un entier et calcule la
valeur de l'expression. 
*)


open  Printf
open Expression

(* quelques fonctions auxilliaires *)
...

(* la compilation des expressions *)
let rec compile_expression = function
  | Binexp (op, e1, e2) -> ...
  | X -> ...
  | Int i -> ...
        ;;

(* la compilation du programme, avec un peu d'emballage *)
let compile e =
  ...
  compile_expression e;
  ...
;;