program t2;
const max=2000;
var a:array[1..max+2] of byte;
i,top,w1,w2,t:integer;
procedure do_with(x,y:integer);
var s:integer;
begin
s:=x*y;
if s<10 then
begin inc(t); a[t]:=s; exit; end;
t:=t+1; a[t]:=s div 10;
t:=t+1; a[t]:=s mod 10;
end;
begin
a[1]:=2; a[2]:=3; top:=0; t:=2;
repeat
top:=top+1;
do_with(a[top],a[top+1]);
until t>=max;
read(w1,w2);
for i:=w1 to w2 do write(a[i]:2);
end.
输入：30 40
输出： 8 2 4 3 6 3 6 3 6 3 6