: a begin key dup 64 > if dup 32 mod 14 / 26 * - 13 + then emit key? 0= until ; a