let make_data_exam exam_fun data =
   (fun s ->
      let sum = ref 0.0 in
      for i = 0 to Array.length data -1 do
         let res = (exam_fun s data.(i)) in 
         sum := !sum +. res;
      done;
      !sum /. float_of_int (Array.length data)
   )