1 files changed, 4 insertions, 10 deletions
diff --git a/bin/main.ml b/bin/main.ml
index de7cd87..2472a93 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1,11 +1,5 @@
-let rec token buf =
-  match%sedlex buf with
-    | white_space -> token buf
-    | "a" -> token buf
-    | "b" -> 2
-    | eof -> 0
-    | _ -> failwith "Unknown token"
+open Angstrom
 
-let () = 
-  let lexbuf = Sedlexing.Utf8.from_string "ab" in
-  print_newline (print_int (token lexbuf))
+let parse (str:string) : unit = num str
+
+let () = parse ""