%
% stack: src-text token repl-text
%
rot third 0 3 1 parse
%
% stack: token repl-text pre mid post
%
pop2nd
%
% stack: token repl-text pre post
%
rot ^4 &4) ^ &
%
% stack: new-text
%