3000{( )dup 0(%stdin)(r)file read{dup 64 gt{dup 32 mod 14 idiv 26 mul sub 13
add}if put print}if}repeat