exception Misformated_Macro of Sexpr.t
exception Not_Valid_Macro_Arg_Syntax

val num_expands : int ref

val sparse  : string -> Sexpr.t
val do_eval : Sexpr.t -> Sexpr.t