WORD used by WORDS...
[COMPILE]
WITHIN
U.R
U>
.R
D>S
WITHIN
PAD
ERASE
C"
+LOOP
LOOP
?resolve-do +LOOP LOOP
DO
?DO
2R@
2>R 2R@
2R> 2R@
TO
VALUE