program subsiruri;
var a,b,c:string;
    i,j,s,v1:integer;
    sir:boolean;
    v:array[1..10000] of integer;

procedure citire;
var f:text;
begin
     assign(f,'strmatch.in');
     reset(f);
     readln(f,a);
     readln(f,b);
     close(f);
end;

procedure gasire;
var f2:text;
begin
     assign(f2,'strmatch.out');
     rewrite(f2);
repeat
      inc(i);
      if a[1]=b[i] then begin
         j:=1;
         sir:=true;
         while (j+1<=length(a)) and (sir) do begin
               j:=j+1;
               if a[j]<>b[i+j-1] then sir:=false;
                  end;
                  if sir then begin
                              v1:=v1+1;
                              s:=s+1;
                              v[v1]:=i;
                              end;
         end;
until i=length(b);
v1:=1;
writeln(f2,s);
while v[v1]<>0 do begin
                    write(f2,v[v1],' ');
                    v1:=v1+1;
                    end;
close(f2);
end;

begin
citire;
gasire;
end.