program text1;
var c:char;
   i,l,k:integer;
   u:boolean;
   litere:set of char;
begin
assign(input,'text.in'); reset(input);
assign(output,'text.out') ; rewrite(output);
reset(input);
rewrite(output);
k:=0; l:=0; u:=false;
litere:=['a'..'z','A'..'Z'];
while not(eof(input))  do begin
  read(c);
  if c in litere then begin inc(l);
                            if not u then begin
                                     inc(k);
                                     u:=true;
                                        end;
                      end
                  else u:=false;
  end;
  writeln(l div k);
  close(output);
end.