program A;
var
        fIn,fOut:text;
        c:char;
        reg:integer;
begin
        assign(fIn,'text.in');
        assign(fOut,'text.out');
        reset(fIn);
        rewrite(fOut);
        while not eoln(fIn) do begin
                read(fIn,c);
                if (ord(c)>=65)and(ord(c)<=90) then reg:=1 else
                        if (ord(c)>=97)and(ord(c)<=122) reg:=-1 else reg:=0;
                write(fOut,chr(ord(c)+32*reg));
        end;
        close(fIn);
        close(fOut);
end.