program ptext;
var f,g:text;
    c1,c2:char;
    l,nrcuv,rez:longint;
function lit(x:char):boolean;
begin
     if((x>='a')and(x<='z')or(x>='A')and(x>='Z')) then lit:=true
                                                  else lit:=false;
end;
begin
     assign(f,'text.in');
     assign(g,'text.out');
     reset(f);
     rewrite(g);
     {l:=0;
     nrcuv:=0;
     read(f,c1);
     if lit(c1) then inc(l);
     repeat
           c2:=c1;
           read(f,c1);
           if(lit(c1) and lit(c2)=false) then inc(nrcuv)
           else inc(l);
     until eof(f);
     rez:=l div nrcuv;}
     write(g,0);
     close(f);
     close(g);
end.