program strmatch;
var a,b:array[1..2000000] of char;
    f,g:text; nr,n,m,k,q:longint; c:char;
    v,vv:array[1..2000000] of longint;

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

begin
assign(f,'strmatch.in'); reset(f);
m:=0;while not seekeoln(f) do begin read(f,c);inc(m);b[m]:=c; end;
readln(f);
n:=0;while not seekeoln(f) do begin read(f,c);inc(n);a[n]:=c; end;
close(f);

prefix;

k:=0; nr:=0;
q:=1;
while(q<=n) do
  begin
    while (k>0)and(b[k+1]<>a[q]) do k:=v[k];
    if b[k+1]=a[q] then k:=k+1;
    if k=m then  begin inc(nr);vv[nr]:=q-m; k:=v[k]; end;
    q:=q+1;
  end;


assign(g,'strmatch.out'); rewrite(g);
writeln(g,nr);
for q:=1 to nr do write(g,vv[q],' ');
close(g);
end.