Possibly shifting to a single script

1 files changed, 15 insertions, 3 deletions

diff --git a/bin/main.ml b/bin/main.ml
index 2472a93..bb0d6ac 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1,5 +1,17 @@
-open Angstrom
+type interpreter = {
+  stack : int list
+}
 
-let parse (str:string) : unit = num str
+type token = Word of string
+
+let tokenize line : token list =
+  String.split_on_char ' ' line |> List.map (fun s -> Word s)
+
+let parse line =
+  let _tokens = tokenize line in
+  ()
+
+let () =
+  let line = input_line stdin |> parse in
+  print_string "HI" |> print_newline
 
-let () = parse ""