: matching-split ( text open-char close-char -- seq ) 
    [ 2drop ] [ matching-pairs ] 3bi 
    [ first2 1 + rot <slice> >string ] with map ;