prog:   parse(str);
str:    smark any(!<<>>) scopy str/done = { 1 2 };
done:   ;