let lexer_of_file ?(print_trace = false) (path : string) : t_token list = try lexer_of_string ~print_trace:print_trace (IO.string_of_file path) with |Error "empty string" -> raise (Error "empty file")