set str "this<>is<>a<>test<>string" set delim "<>" goto start label idxlbl set
vals sort map transpose concat wrap _ wrap delim sortlbl sortlbl set _ slice "
" add unwrap slice vals 0 1 1 multiply -1 unwrap slice vals add length vals -1
-1 1 1 1 return label sortlbl set _ add unwrap slice _ 0 1 1 multiply -1 unwrap
slice _ 1 2 1 return label maplbl set _ slice str add length delim unwrap slice
_ 0 1 1 unwrap slice _ 1 2 1 1 return label start map each concat wrap multiply
-1 length delim concat index each str length delim idxlbl wrap length str 2

                                                                                                                  .