L A =REPLACE(INPUT 0,&ALPHABET 1023456789 &UCASE &LCASE,DUPL(3,33) DUPL(2,94) DUPL($0 =$1 =$2 =0,129) DUPL(1,62)) :F(); A LEN(1) $ I *~($I =$I + 1); OUTPUT =$0 'B / ' $1 'B / ' $2 .B :(L);END
Note that non-ascii characters in the above source code will be escaped (such as \x9f).