program strmatch;
const fi='strmatch.in';
      fo='strmatch.out';
var f,g:text;
s,s2:ansistring;
v:array[1..1000]of longint;
nr,i:longint;

procedure aflare(s:string; nr:longint);
 var a:longint;
begin
a:=pos(s2,s);

if (a=0)or(nr=1000) then
begin
writeln(g,nr);
for i:=1 to nr do
write(g,v[i]);
end
else
  begin
 delete(s,a,1);
 v[nr+1]:=a+nr-1;
  aflare(s,nr+1);
    end;
end;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
readln(f,s2);
readln(f,s);
aflare(s,0);

close(f);
close(g);
end.