program pr11a;
function cs(a,b:char):boolean;
 var s,c:char;
     k,max_k:integer;
  begin
    read(c);
    k:=0;
    max_k:=0;
    s:=c;
  while (c<>#13) and (c<>#10) do
   begin
    if ((c in ['a'..'z']) and (s in ['a'..'z'])) then
     k:=k+1
    else
     begin
      if (k>max_k) then
        max_k:=k;
        k:=0;
      end;
 if ((c in ['a'..'z']) and (s in ['a'..'z'])) then
   cs:=true
 else
   cs:=false;
  s:=c;
  read(c);
  end;
  writeln(max_k);
  end.