K=
STR_OUT=
FOR J=%TRIM(STR_IN) STEP -1 UNTIL 1
DO BEGIN
      INCR K
      STR_OUT(K:1)=STR_IN(J:1)
   END