var s:string;
i,k:integer;
BEGIN
readln(s);
k:=0;
for i:=1 to Length(s) do
if (s[i]='е') then
k:=k+1;
writeln(k);
end.
var s:string;
i,k:integer;
BEGIN
readln(s);
k:=0;
for i:=1 to Length(s) do
if (s[i]='е') then
k:=k+1;
writeln(k);
end.