(* TEST
 include ocamlcommon;
 toplevel;
*)

Parse.expression (Lexing.from_string "1");;