(* Nom: *)
(* Prenom: *)
(* Groupe: A?? *)

(* 1 /2 *)               
(* let make_list n e = *)

(* 2 /1 *)
(* let make_zeros n = *)

(* 3 /1.5*)
(* let rec get_nth l i = *)

(* 4 /2 *)
(* let rec set_nth l i e = *)

(* 5 /2*)
(* let rec get_nth_opt l i = *)

type grid = int list list

(* 6 /2 *)
(* let make_empty_grid size : grid  = *)

(* 7 /0.5*)
(* let grid_size grid = *)

(* 8 /1*)
(* let correct_z_p grid z = *)

(* 9 /1*)
(* let correct_coor_p grid li co = *)
  
(* 10 /1.5*)
(* let get_square grid li co = *)

(* 11 /2 *)
(* let set_square grid li co e = *)

(* 12 /0.5 *)
(* let pred_square_p pred grid li co = *)

(* 13 /1 *)
(* let zero_square_p grid li co = *)
  
(* 14 /2*)
(* let grid_map f grid = *)