Exkmp

var
        extand,next:array[0..100000] of longint;
        s,s1:ansistring;
        l,l1,n,m,i,j,p,a:longint;
begin
        readln(s);
        readln(s1);
        l:=length(s);
        l1:=length(s1);
        j:=-1;
        p:=0;
        a:=0;
        next[0]:=l1;
        for i:=1 to l1-1 do
        begin
                if (j<0)or(i+next[i-a]>=p) then
                begin
                        if (j<0) then
                        begin
                                j:=0;
                                p:=i;
                        end;
                        while (p《l1)and(j《l1)and(s1[p+1]=s1[j+1]) do
                        begin
                                inc(p);
                                inc(j);
                        end;
                        next[i]:=j;
                        a:=i;
                end
                else next[i]:=next[i-a];
                dec(j);
        end;
        for i:=0 to l1-1 do write(next[i],' ');
        j:=-1;
        p:=0;
        a:=0;
        for i:=0 to l-1 do
        begin
                if (j<0)or(i+next[i-a]>=p) then
                begin
                        if (j<0) then
                        begin
                                j:=0;
                                p:=i;
                        end;
                        while (p《l)and(j《l1)and(s[p+1]=s1[j+1]) do
                        begin
                                inc(p);
                                inc(j);
                        end;
                        extand[i]:=j;
                        a:=i;
                end
                else extand[i]:=next[i-a];
                dec(j);
        end;
        writeln;
        for i:=0 to l-1 do write(extand[i],' ');
end.