Var
 S,S1:String;
 i:Byte;

Function Big(Ch:Char):boolean;
begin
 Big:=((Ord(Ch)>64) and (Ord(Ch)<91)) or
      ((Ord(Ch)>191) and (Ord(Ch)<224)) or
      ((Ord(Ch)>127) and (Ord(Ch)<160));
end;

Begin
 Writeln('Enter the string:');
 Readln(S);
 S1:='';
 S1:=S1+S[1];
 for i:=2 to Length(S) do
  if (S[i-1]<>' ') and Big(S[i]) then
   begin
    if (Ord(S[i])<144) or (Ord(S[i])>191) then S1:=S1+Chr(Ord(S[i])+32)
    else S1:=S1+Chr(Ord(S[i])+80);
   end
  else
 S1:=S1+S[i];
 Writeln(S1);
 Readln
End.