let new_from_content content =
  let sv = call_class_method "HTML::TreeBuilder" "new_from_content"
             [sv_of_string content] in
  new html_treebuilder sv