module Hpricot::Doc::Trav

def root
  es = []
  children.each {|c| es << c if c.elem? } if children
  raise Hpricot::Error, "no element" if es.empty?
  raise Hpricot::Error, "multiple top elements" if 1 < es.length
  es[0]
end