program strmatch;
type
tabel=array [0..2000000] of longint;
var
v:tabel;
s,ss:ansistring;
n,m,i,j,k,l:longint;
f1,f2:text;
begin
assign (f1,'strmatch.in');
assign (f2,'strmatch.out');
reset (f1);
rewrite (f2);
readln (f1,s);
readln (f1,ss);
k:=0;
repeat
l:=pos(s,ss);
if l>0 then begin
k:=k+1; v[k]:=l+k-2;
end;
delete(ss,pos(s,ss),1);
until l=0;
writeln (f2,k);
for i:=1 to k do
write (f2,v[i],' ');
close (f1);
close (f2);
end.