let rec random_data d n =
  if n = 0
  then []
  else ((random_float_list d), n) :: (random_data d (n-1))