TRIM
* TRIM ( str len -- str len-i )

Trim white space from end of string.
 : TRIM    
    BEGIN  DUP WHILE
        1-  2DUP + C@ IS-WHITE NOT
    UNTIL 1+ THEN ;

FORTH/DEF toolbelt ordinary primitive