module Hpricot::Traverse

def html(inner = nil, &blk)
  if inner or blk
    altered!
    case inner
    when Array
      self.children = inner
    else
      self.children = make(inner, &blk)
    end
    reparent self.children
  else
    if respond_to? :children
      children.map { |x| x.output("") }.join
    end
  end
end