* CODER by Simone Rapisarda & James Cloos
ASSEMBLE
NIBASC /HPHP48-D/
RPL
::
CK2NOLASTWD DO>STR SWAP DO>STR DUPLEN$ ROT
BEGIN 2DUP LEN$ #>
WHILE DUP &$
REPEAT ONE ROT SUB$ XOR$
;