program tt
  integer i, n
  read (*,*) n
  call srand(n)
  do i = 1, 10
    write (*,*) rand()
  end do
end program