var placute, corect, aux:string[255];
    i,n,p,j:integer;
    pi:integer;
    f, g:text;

begin
assign(f,'puzzle.in'); reset(f);
assign(g,'puzzle.out'); rewrite(g);

readln(f,corect);
readln(g,placute);

n:=length(corect);
p:=pos(corect[1],placute);
placute[p]:='*';

for i:=2 to n do
  begin
   p:=pos(corect[i],placute);
   for j:=1 to p-1 do
     write(g, n,' ');
   aux:=copy(placute,1,p-1);
   delete(placute,1, p-1);
   placute:=placute+aux;


   pi:=pos('*',placute);
   writeln(g, pi, ' ');
   placute[pi]:=' ';
   placute[1]:='*';
   insert(placute[1], placute, pi+1);
   delete(placute, 1, 1);
   if pi<>n then
     begin
       insert(placute[n], placute, pi+1);
       delete(placute, n+1, 1);
     end;
   end;
write(g,'0');
close(f);
close(g);
end.