sub dump_tree {
    my $thing = shift;
    print "<div>";
    dump_tree($_) for $thing->kids;
    print $thing if $thing->is_printable;
    print "</div>";
}