type expr =
  | Comment of string
  | Aconst of int
  | Ainstr of string
  | Ginstr of string
  | Cinstr of string * string * string