Var
   s: string;
   i, d: longint;
   cap: boolean;

Begin
     cap:= true;
     readln(input, s);
     d:= ord('a') -ord('A');
     while (s <> '*') do
           begin
           for i:= 1 to length(s) do
               begin
               if (cap) then
                  begin
                  if (s[i] in ['A'..'Z', 'a'..'z']) then
                     begin
                     cap:= false;
                     s[i]:= upcase(s[i]);
                     end;
                  end
                  else
                      if (s[i] in ['A'..'Z']) then
                         s[i]:= char(ord(s[i]) + d);
               if ((s[i] = '.') or (s[i] = '/')) then
                  cap:= true;
               if (s[i] <> '/') then
                  write(output, s[i]);
               end;
           writeln(output);
           readln(input, s);
           end;
End.