program xxx;
uses crt;
var ch:char;
BEGIN
clrscr;
read(ch);
while ch<>#13 do
  begin
    if (ch>='a') and (ch<='z')
    then write(upcase(ch))
    else write(ch);
    read(ch);
  end;
readln;
END.