renaming

src/main.ml

@@ -0,0 +1,12 @@
+open Ast
+
+let _ =
+  try
+    let oi = open_in "test.node" in
+    let lexbuf = Lexing.from_channel oi in
+    let result = Parser.main Lexer.token lexbuf in
+    Format.printf "%a" Pp.pp_prog result;
+    close_in oi
+  with Lexer.Lexing_error s ->
+    Format.printf "Code d'erreur:\n\t%s\n\n" s
+