let print_grades grades =
   List.iter 
      (fun grades ->
         List.iter
            (fun x -> print_float x; print_string "; ")
            grades;
         print_string "\n"
      )
      grades