program infoarena_strmatch;
var f,g:text; a,b:string; k,i,j,q,poz:integer; v:array[1..100]of integer;
begin
assign(f,'strmatch.in');
assign(g,'strmatch.out');
reset(f); rewrite(g);
readln(f,a);
readln(f,b); q:=1; poz:=0;
while pos(a,b)<>0 do begin
            k:=pos(a,b);
            if k<>poz then
            begin
             v[q]:=k+poz-1;
             inc(q);
             poz:=k;
             delete(b,1,(k));
            end;

end;
writeln(g,k);
for i:= 1 to q-1 do write(g,v[i],' ');
close(f); close(g);
end.