type expr =
  | Comment of string
  | Acommand of string
  | Mcommand of string * string * string