var
s: string;
i,count: integer;
begin
count:=1;
readln(s);
for i := 1 to Length(s) do
if s[i] = ' ' then inc(count,1);
writeln(count)
end.
var
s: string;
i,count: integer;
begin
count:=1;
readln(s);
for i := 1 to Length(s) do
if s[i] = ' ' then inc(count,1);
writeln(count)
end.