sub mysub {
    my ( $t, $tag) = @_;
    for ($tag->children) {
        $_->delete() for $_->children;
    }
    1;
}