( Forth ) :noname >in source rot @ nip + c@ 1+ parse 2 / tuck + dup c@ -rot swap 3 tuck - -rot dup 1- * + -rot 0 do over c@ 3 - 2dup swap - swap dup 98 = if 66 - then emit swap -rot + swap loop cr ; execute ( Ox ruin huthfv edhwqdk wr idekw Mieou I hkrghe Cthulhu )
I wonder if I have a forth interpreter here somewhere…