let () =
  let file_name = Sys.argv.(1) in
  let ic = Stdlib.open_in file_name in
  let lexer = Lexing.from_channel ~with_positions:true ic in
  let result = Qsp_parser.Analyzer.parse (module Qsp_syntax.Tree) lexer in
  match result with
  | Ok _ -> exit 0
  | Error e ->
      Format.fprintf Format.std_formatter "\nError in location %s\n%a" file_name
        Qsp_parser.Analyzer.format_error e;
      exit 1