program loop
1	format ('+',I5,$)
	do i = 1, 1000
		write (6,1) I
	enddo
	end