Program text12;
 var fi,fo:text;
     s:string;
     k1,k2,i:integer;
begin
 assign(fi,'text.in'); reset(fi);
  assign(fo,'text.out'); rewrite(fo);
   read(fi,s);
    for i:=1 to length(s) do  case s[i] of
                              'a'..'z','A'..'Z':inc(k1);
                              ' ':inc(k2);
                              end;
    writeln(fo,(k1/k2)-1:0:0);
    close(fi);
    close(fo);
    end.