var
s: string;
lcuv,stot,ct: integer;
f,g: text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
readln(f,s);
close(f);
ct:=1; lcuv:=0;
while ct<>length(s) do
    begin
       if ((s[ct]<='z') and (s[ct]>='a')) or ((s[ct]<='Z') and (s[ct]>='A'))
                        then begin
                               inc(lcuv);
                               inc(stot);
                              end;
             lcuv:=0;
     inc(ct);
     end;
 write(g,trunc(stot));
 close(g);
end.