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