Reorganized project

lib/parser/parser.ml

@@ -0,0 +1,16 @@
+let parse_one lb = Parse.prog (Lex.read) lb
+
+let parse lb = 
+  let rec helper () =
+    match parse_one lb with
+    | None -> []
+    | Some (t) -> t :: helper ()
+  in
+  helper ()
+
+let parse_str s =
+  parse (Lexing.from_string s)
+
+
+module Ast = Ast
+module Parse = Parse