blob: 0e44939f699f7e0b86b0667d1e9c2fcfa61c8c8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env ocaml
type interpreter = {
mutable 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
|
