var a:array[byte]of byte;i,j,k:comp;begin repeat k:=10-1and i*20;repeat k:=a[j]*i+k div$a;a[j]:=k mod$a;j:=j+1until-k=a[j];for j:=2-j-ord(i=1)to 0do write(a[-j]);writeln;i:=i+1until i>50end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).