let fixed_shuffle size =
   (* create a shuffled list of size ints *)
   let map = Array.init size (fun i -> i) in
   let swap i j arr =
      let helper = arr.(i) in
      arr.(i) <- arr.(j);
      arr.(j) <- helper;
   in
   for i = 0 to Array.length map -1 do
      swap i (Random.int (Array.length map)) map
   done;
   (fun () -> map)