let to_clauses_from_string (source: string) : clause list =
  let channel =
    Lexing.from_string source
  in
    try
      Parser_tme.parse_file Lexer_tme.token channel
    with
      | Parsing.Parse_error ->
          Lexer_tme.parse_error ()