program textinfo;
var t :string;
var s1,s2,c :longint;
var f,ff :text;
begin
assign(f,'text.in');
reset(f);
readln(f,t);
close(f);
for c:=1 to length(t) do
begin
if ((t[c])='a') or ((t[c])='A') or ((t[c])='s') or ((t[c])='S') or ((t[c])='d') or ((t[c])='D') or ((t[c])='f') or ((t[c])='F') or ((t[c])='g') or ((t[c])='G') or ((t[c])='h') or ((t[c])='H') or ((t[c])='j') or ((t[c])='J') or ((t[c])='k') then
s1:=s1+1;
if ((t[c])='m') or ((t[c])='M') or ((t[c])='p') or ((t[c])='P') or ((t[c])='o') or ((t[c])='O') or ((t[c])='i') or ((t[c])='I') or ((t[c])='u') or ((t[c])='U') or ((t[c])='y') or ((t[c])='Y') or ((t[c])='t') or ((t[c])='T') or ((t[c])='r') then
s1:=s1+1;
if ((t[c])='R') or ((t[c])='e') or ((t[c])='E') or ((t[c])='w') or ((t[c])='W') or ((t[c])='q') or ((t[c])='Q') or ((t[c])='K') or ((t[c])='l') or ((t[c])='L') or ((t[c])='z') or ((t[c])='Z') or ((t[c])='x') or ((t[c])='X') or ((t[c])='c') then
s1:=s1+1;
if ((t[c])='C') or ((t[c])='v') or ((t[c])='V') or ((t[c])='b') or ((t[c])='B') or ((t[c])='n') or ((t[c])='N') then
s1:=s1+1;
if t[c]=' ' then
s2:=s2+1
end;
s2:=s2+1;
assign(ff,'text.out');
rewrite(ff);
write(ff,(s1 div s2));
close(ff)
end.