Dan Ingalls wrote:
	Maybe you can tell me what this does...
	
	       INTEGER N(134)/'0','1',132*'0'/,L(2)/'(133',' A1)'/,G/133/,H/266/
	       DO 1 K=G,17688
	       IF(K.EQ.K/G*G) WRITE(6,L)(L(2),J=K,17689,H)(N((K-J)/G+2),J=G,K,G)
	       N(J-K+1)=2**24*MOD((N(J-K+1)-N(1)+(N(J-K)-N(1))/10)/2**23,10)+N(1)
	1      IF(MOD(K+1,G).EQ.0.AND.N(J/G+1).LE.N(1)) K=K-G
	       END
	
Gets a syntax error, of course.  If the line with the WRITE statement
is changed to
      IF(K.EQ.K/G*G) WRITE(6,L)(L(2),J=K,17689,H),(N((K-J)/G+2),J=G,K,G)	
.................................................^	
the program prints powers of two.