7 lines
204 B
OCaml
7 lines
204 B
OCaml
open E0
|
|
|
|
let () =
|
|
let p = Lexing.from_channel stdin |> Parse.try_parse in
|
|
match p with
|
|
| Error msg -> Printf.eprintf "Could not load program: %s" msg
|
|
| Ok p -> Ast.show_program p |> print_endline
|