program kmp;
var f,g:text;
    a,b:ansistring;
    v:array[1..1000] of longint;
    x:array[1..2000000] of longint;
    k,i,j,m,n,nr:longint;
    bufin,bufout:array[1..65000] of byte;

procedure prefix ;
begin
 k:=0; x[1]:=0;
 for i:=2 to m do
 begin
  while (k>0) and (a[i]<>a[k+1]) do
   k:=x[k];
  if a[i]=a[k+1] then
   k:=k+1;
  x[i]:=k;
 end;
end;

begin
 assign (f,'strmatch.in'); reset (f);
 assign (g,'strmatch.out'); rewrite (g);
 settextbuf (f,bufin); settextbuf (g,bufout);
 readln (f,a); read (f,b);
 m:=length (a); n:=length (b);
 prefix;
 for i:=1 to m do
  write (g,x[i], ' ');
 k:=0;
 for j:=1 to n do
 begin
  while (k>0) and (b[j]<>a[k+1]) do
   k:=x[k];
  if b[j]=a[k+1] then
   k:=k+1;
  if k=m then
  begin
   nr:=nr+1;
   if nr<1001 then
    v[nr]:=j-k;
   k:=x[k];
  end;
 end;
 writeln (g,nr);
 if nr>1000 then
 nr:=1000;
 for i:=1 to nr do
 write (g,v[i],' ');
 close (f); close (g);
end.