let to_clauses_from_file (file_name: string) : clause list =
  let channel =
    Lexing.from_channel (open_in file_name)
  in
    try
      Parser_tme.parse_file Lexer_tme.token channel
    with
      | Parsing.Parse_error ->
          Lexer_tme.parse_error ()