uses maturita2011;

var 
    z,a:char;
	 mm:string[4];
begin
  while not eof() do
  begin
    a:=' ';
	 mm:='';
	 while (a<>'/') and not eof() do
	 begin
    	 read(a);
		 if (a<>'/') then mm+=a;
	 end;
	 if mm='' then write(' ') else 
    	 for z:='A' to 'Z' do if mm=tab[z] then write(z);
	end;
end.