my $node = tree.getbodynode.getlasttoplevelnode
delete tree.$node if ($node.type == blockquote)
(recurse)