defword cipher
    3 ref as byte
    2 get as password
    1 get as plen
    0 get as pos
    pos @ password + @ byte @ xor byte !
    pos @ 1 + pos !
    pos @ plen = if 0 pos ! fi
    drop drop drop
exit