var f:text; i,k,s:integer; tex:string;
begin
     assign(f,'text.in');
     reset(f);
     read(f,Tex);
     close(f);
     k:=1;
     For i:=2 to length(tex) Do
     begin
     IF (tex[i-1] in separatori) and (not tex[i] in separatori) THEN
     k:=K+1;
     IF tex[i] not in separatori THEN
     s:=s+1;
     end;
     assign(f,'text.out');
     rewrite(f);
     write(f,s mod k);
     close(f);
end.