blob: bb0d6ac8ba569296cd01c8ed1b1634893b2557f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
type interpreter = {
stack : int list
}
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
|
