uses crt;
var S, M, Z, P : string;
    A : array [1 .. 255] of string;
    B : array [1 .. 255] of string;
    C : array [1 .. 255] of string;
    i, j, k, cs1, cs2, min, max : byte;
begin
    clrscr;
    readln(S);
    
    i := 1; S := S + ' ';
    M := ''; j := 0; k := 0;
    while i < length(S) do
        begin
            if (S[i] = '-') or (S[i] in ['1' .. '9']) then 
                begin
                    k := 1;
                    M := M + S[i];
                end;
                
            if S[i] = '0' then
                if k = 1 then M := M + S[i];
                    
            if (S[i + 1] = '-') or not(S[i + 1] in ['0' .. '9']) then 
                begin
                    if M <> '' then
                        begin
                            j := j + 1;
                            A[j] := M;
                        end;
                    M := '';
                    k := 0;
                end;
            
            if (S[i] = '0') and not(S[i - 1] in ['0' .. '9']) then M := '';
            i := i + 1;
        end;
    
    cs1 := 0; cs2 := 0;
    for i := 1 to j do
        begin
            Z := A[i];
            if Z[1] = '-' then
                begin
                    inc(cs1);
                    delete(Z, 1, 1);
                    B[cs1] := Z;
                end
            else if Z[1] in ['1' .. '9'] then
                begin
                    inc(cs2);
                    C[cs2] := Z;
                end;
        end;
      
    max := 255; P := '';
    for i := 1 to cs1 do 
        if length(B[i]) < max then
            begin
                max := length(B[i]);
                P := B[i];
            end;

    min := 0;
    for i := 1 to cs2 do
        if length(C[i]) > min then min := length(C[i]);
    
    for i := 1 to cs1 do
        if length(B[i]) = max then
            if B[i] < P then P := B[i];

        
    M := '0';
    for i := 1 to cs2 do 
        if length(C[i]) = min then
            if C[i] > M then M := C[i];

    if M = '0' then 
        if P = '0' then write(0)
        else write('-', P) 
    else write(M);
    readln
end.