4 let path_to_program_file = Sys.argv.(1) in
5 let ic = open_in path_to_program_file in
6 let lexbuf = Lexing.from_channel ic in
7 let rec parse_and_print () =
8 match Tiger.Lexer.token lexbuf with
12 printf "%s\n" (Tiger.Parser.Token.to_string token);