\ string 00.3.18 6:57 pm NAB : /STRING 2dup - >r nip + r> ; : BLANK bl fill ; : -TRAILING ( c-addr1 u1 -- c-addr2 u2 ) begin dup 1 < if exit then 2dup 1- chars + c@ bl = while 1- repeat ;