program kmp_brute;
var f,g:text;
    a,b:ansistring;
    v:array [1..2000000] of longint;
    n,i:longint;
    c:char;

begin
 assign (f,'strmatch.in'); reset (f);
 assign(g,'strmatch.out'); rewrite (g);
 readln (f,a);
 read (f,b);
 n:=0;
 for i:=1 to length (b)-length (a)+1 do
 begin
  if copy (b,i,length (a))=a then
  begin
   n:=n+1; v[n]:=i-1;
  end;
 end;
 if n<=1000 then
 begin
  writeln(g,n);
  for i:=1 to n do
   write (g,v[i],' ');
 end
 else
 begin
  writeln (g,1000);
  for i:=1 to 1000 do
   write (g,v[i],' ');
 end;
 close  (f); close (G);
end.