program pascal;
var f,g:text;
    i,j,k,s,m,n,nr:longint;
    a,b:array[1..2000001] of char;
    c:char;
    d:array[1..2000001] of longint;
    ok,bun:boolean;
begin
assign(f,'strmatch.in'); reset(f);
assign(g,'strmatch.out'); rewrite(g);
n:=1;
m:=1;
readln(f,a);
while (ord(a[n])<>0) do n:=n+1;
read(f,b);
while (ord(b[m])<>0) do m:=m+1;
n:=n-1;
m:=m-1;
  nr:=0; s:=0;
  for i:=1 to m do
   begin
   ok:=true;
   k:=i;
   for j:=1 to n do
    if b[k]<>a[j] then
           begin
            ok:=false;
            break;
           end
            else k:=k+1;
   if ok then
        begin
          s:=s+1;
          d[s]:=i-1;
          nr:=nr+1;
        end;
   end;

 writeln(g,nr);
 if s<=1000 then
     for i:=1 to s do write(g,d[i],' ')
            else
     for i:=1 to 1000 do write(g,d[i],' ');
close(f);
close(g);
end.