program wordCalculator;
function RemoveSpaces(str : string) : string;
begin
   var iter := 1;
   while (iter < str.Length) do
   begin
      if (str[iter] = ' ') and (str[iter + 1] = ' ') then
         begin
            str := str.Remove(iter, 1);
            iter -= 1;
         end;
      iter += 1;
   end;
   RemoveSpaces := str;
end;

function CalcWords(str : string) : integer;
begin
   CalcWords := RemoveSpaces(str).Split(' ').Count();
end;

begin
   var input : string;
   readln(input);
   writeln(CalcWords(input));
end.