let group_mean (groupnum:int) = 
  let list_stu   = List.filter (fun s -> s.group = groupnum) !student_list in 
  let list_means = List.filter (fun f -> f > 0.) (List.map student_mean list_stu) in 
    (List.fold_left (+.) 0. list_means) /. (float (List.length list_means))