uses crt;

var S : string; i, k, j : byte; 

    A : array [1 .. 10] of byte;

    f1, f2 : text;

function KT (x : byte) : byte;

    begin

        KT := 0;

        for j := x to length(S) do

            if S[j] in ['0' .. '9'] then KT := KT + 1 

            else break;

    end;

begin

clrscr;

assign(f1, 'KITUSO.INP'); reset(f1);

assign(f2, 'KITUSO.OUT'); rewrite(f2);

readln(f1, S);

i := 1; k := 0;

while i <= length(S) do

    begin 

        if S[i] in ['0' .. '9'] then 

            begin 

                k := k + 1; 

                A[k] := KT(i); 

                i := i + KT(i); 

            end 

        else i := i + 1; 

    end;

j := 0; 

for i := 1 to k do 

    if A[i] > j then j := A[i];

write(f2, j);

close(f1); close(f2);

readln

end.

#include <bits/stdc++.h>
using namespace std;
#define ll long long
string sm;
int tmp = 0, ans = 0;
int main(){
    ios::sync_with_stdio(0);
    cin.tie(0);cout.tie(0);

    cin >> sm;
    sm = sm + ' ';
    int l = sm.size();
    for (int i = 0; i < l; i++){
        if (sm[i] >= '0' && sm[i] <= '9')
            tmp++;
        else{
            ans = max(ans, tmp);
            tmp = 0;
        }
    }
    cout << ans << '\n';
    return 0;
}