program kisbeture;
var s:string;
    i:byte;
begin
     readln(s);
     for i:=1 to length(s) do
     if (ord(s[i])<=ord('Z')) and (ord(s[i])>=ord('A')) then
        s[i]:=chr(ord(s[i])+32);
     writeln(s);
     readln
end.