program strmatch;
const fi='strmatch.in';
      fo='strmatch.out';
var f,g:text;
s,s2:ansistring;
v:array[1..1000]of longint;
nr,i,nrs,a:longint;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
readln(f,s2);
readln(f,s);
nr:=1;
a:=1;
while (a<>0)and(nr<1000) do
begin
while s[1]<>s2[1] do
begin
inc(nrs);
delete(s,1,1);
end;
a:=pos(s2,s);
if (a=0)or(nr=1000) then
begin
writeln(g,nr-1);
for i:=1 to nr-1 do
write(g,v[i],' ');
break;
end
else
  begin
 delete(s,1,a);
 nrs:=nrs+a;
 v[nr]:=nrs-1;
 inc(nr);
    end;
end;
close(f);
close(g);
end.