10 lines
293 B
OCaml
10 lines
293 B
OCaml
open Flan.Parse
|
|
|
|
let () =
|
|
let source_str = Flan.Examples.let_bind_int in
|
|
let lexbuf = Lexing.from_string source_str in
|
|
Printf.printf "Convert source \"%s\" ->\n" source_str;
|
|
match parse_program lexbuf with
|
|
| Ok ast -> print_ast ast
|
|
| Error msg -> print_endline ("ERROR: \n" ^ msg)
|