|
loop: ordcop [lch?]\loop;
|
|
ordcop: ord/copy;
|
|
ord: char(ch)/last [ch!=lch?]\new [cnt++] fail;
|
|
new: ( [lch?] parse(out) | () ) [lch=ch] [cnt=1] fail;
|
|
out: decimal(cnt) scopy = { 2 1 };
|
|
last: parse(out) [lch=0];
|
|
copy: smark any(!<<>>);
|
|
|
|
ch: 0;
|
|
lch: 0;
|
|
cnt: 0;
|