: find-between* ( vector i/f tag/f -- vector ) over integer? [ [ tail-slice ] [ name>> ] bi* dupd find-matching-close drop [ 1 + ] [ 1 ] if* head ] [ 3drop V{ } clone ] if ; inline