* 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$
        ;