program funcnion_hw;
var
   c, d:integer;
   s : string;
function size(a, b:integer):integer;
begin
  size := length(s);
  if (s[a] <> ' ')  and (s[a + 1] = ' ') then
  size += 1;
end;
begin
  read(s);
  write(size(c, d));
  write('c = ', c);
end.