call srand(23)
	do i=1,10
	print *, rand()
	enddo
	stop
	end