program strmatch;
type
tabel=array [0..2000001] of int64;
var
v:tabel;
s,ss:ansistring;
i:longint;
n,m,j,k,l:int64;
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.