var a,b:array[byte]of comp;i,j,k:comp;begin a[1]:=1;repeat
i:=i+1;j:=99;while 1div j+a[j]=0do j:=j-1;for j:=-j to-1do
write(a[-j]);writeln;k:=0;for j:=1to 99do begin k:=(a[j]+b[j])*i+k
div 10;a[j]:=b[j];b[j]:=k mod 10end until i>50end.