( string DAY 05.04.2001 )

: /STRING ( c-addr1 u n -- c-addr2 u2 )  
    dup >r - swap r> + swap 
;

: BLANK  ( c-addr u ) bl fill ;

: -trailing ( c-addr u1 -- c-addr u2 ) \ 94 STRING
   dup 0>
   if
     begin
       2dup + 1- c@ bl =
       over 0> and
     while
       1-
     repeat
   then
;