RosettaCodeData/Task/Reverse-a-string/TMG/reverse-a-string.tmg

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