var s:string;
i:longint;
begin
read(s);
while s[1]=#32 do delete(s,1,1);
while pos(#32#32,s) do delete(s,pos(#32#32,s),1);
while s[length(s)]=#32 do delete(s,length(s),1);
for i:=1 to n do
if s[i]=#32 then s[i+1]=upcase(s[i+1]);
write(s);
readln;
end.