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)