let new_ () =
  let sv = call_class_method "HTML::TreeBuilder" "new" [] in
  new html_treebuilder sv