program suanshu;
var
  s:string;
  count,i:integer;
  zm:set of char;
begin
  zm:=['A'..'Z','a'..'z'];
  while not eof do
  begin
    count:=0;
    readln(s);
    for i:=1 to length(s)-1 do
      if (s[i] in zm) and not (s[i+1] in zm) then inc(count);
    writeln(count);
  end;
end.

第10个我是1他是2