uses crt;
var s:string;
i,count,res:word;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then begin inc(count); break end;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then begin inc(res); break end;
write(count+res);
readln;
end.