var 
  s:ansistring;
  i,count:longint;
begin
  readln(s);
 // for i:=1 to length(s) do if s[i] in ['A'.. 'Z'] then inc(count);
  writeln(length(s));
end.
/**************************************************************
	Problem: 1710
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/