maksview Var
s:string[255];
begin
readln(s);
writeln(length(s));
end.