sig
  type binop = Plus | Minus | Multiply | Divide
  type expr =
      Binop of CombineAST.binop * CombineAST.expr * CombineAST.expr
    | Function of string * CombineAST.expr list
    | File of string
    | Files of string
    | Integer of int
  val to_string : CombineAST.expr -> string
end