var i,j,m,n,x,y:integer;
    s,t,l:string;
                 procedure citire;
                 var f:text;
                 begin
                 assign(f,'subsir.in');
                 reset(f);
                 readln(f,s);
                 read(f,t);
    end;
        function gasit(m,n:integer):boolean;
           var i,j:integer;
        begin
             gasit:=false;
             for i:=m to length(s) do
             for j:=n to length(t) do
             if s[i]=t[j] then begin
              gasit:=true;
              x:=j;
              break;
              break;
             end;
        end;
        Procedure calc;
        var i,j:integer;
        begin
        x:=1;
        for i:=1 to length(s) do begin
        n:=0;
        for j:=x to length(t) do
            if gasit(i,j) then inc(n);
            if n>m then m:=n;
            end;
        end;
    begin
    citire;
    writeln(m);
    readln
    end.