2 let rec ast_to_string ast = match ast with
4 | Ast.Node ls -> "[" ^ String.concat " " (List.map ast_to_string ls) ^ "]"
9 let lexbuf = Lexing.from_channel stdin in
11 let result = Parser.main Lexer.token lexbuf in
12 Printf.printf "%s" (ast_to_string result); print_newline(); flush stdout