vars:string;

　　i,t:integer;

　　begin

　　readln(s);

　　t:=0;

　　fori:=1tolength(s)do

　　begin

　　ifs[i]=''thent:=t+1;

　　end;

　　writeln(t+1);

　　end.