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