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