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