: stack-sax ( stream quot: ( parents xml-elem -- ) -- ) V{ } clone '[ _ _ swap 2keep { { [ dup opener? ] [ swap push ] } { [ dup closer? ] [ drop pop* ] } [ 2drop ] } cond ] sax ;