var st,sta:string;
    len,i:longint;

begin
   while not eof do
     begin
       readln(st);
       len:=length(st);sta:=upcase(st[1]);
       for i:=2 to len do
         if (st[i-1]=' ') or (st[i-2]='\') and (st[i-1]='t') or  (st[i-2]='\') and (st[i-1]='r') or  (st[i-2]='\') and (st[i-1]='n') then
            sta:=sta+upcase(st[i])
          else
             sta:=sta+st[i];
       writeln(sta);
     end;
end.

/**************************************************************
	Problem: 2185
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/