var c:char;n:word;begin repeat n:=ord((c>^~)&(c<^!))*32;read(c);if c=^`then n:=42;write(chr(ord(c)xor n))until 0>0end.