10b

var
s,ns:string;
i:integer;
begin
 readln(s);
 i := pos(' ',s);
 ns := copy(s,i+1,length(s));
 writeln(upcase(ns));
end.