let esearch_answer_of_string str = 
  tree_of_string str
  |> snd
  |> esearch_answer_of_tree