10a

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