var
str : string;
i : longint;
count : longint;
begin
count := 0;
readln(str);
for i := 1 to length(str) do
begin
if (str[i] >= 'a') and (str[i] <= 'z') then
inc(count);
end;
writeln('It has ', count, ' lowercases');
end. 输入：NOI2016 will be held in Mian Yang.
输出：1
