procedure m(t: string);
const s = '.-etianmsurwdkgohvf*l*pjbxcyzq**54?3???2??+????16=/?????7???8?90';
var z: string;
    i, j: integer;
begin
   for i := 1 to length(t) do
     begin
       j := pos(t[i], s) - 1;
       z := '';
       while j > 1 do
          begin
	     z := s[1 + j mod 2] + z;
	     j := j div 2;
	  end;
      writeln(z);
   end;
end;