(* Ce fichier contient tout ce qu'il faut pour lire les donnees en entree, les 
mettre dans des variables, et afficher votre resultat final en sortie. *)

(* fonction pour separer les elements en entree 
Il n'est pas necessaire de comprendre cette fonction pour utiliser le programme !*)
let split_spaces chaine =
  let res = ref [] in
  let temp = ref "" in
  for i = 0 to String.length chaine - 1 do
    if chaine.[i]=' '
    then 
      begin
        res := !res @ [!temp];
        temp := "";
      end
    else
      temp := !temp ^ (String.sub chaine i 1);
  done;
  res := !res @ [!temp];
  !res;;

(* On lit le nombre de lignes et de colonnes de la matrice *)
let lignes = int_of_string (input_line stdin);;
let colonnes = int_of_string (input_line stdin);;

(* ... puis la matrice elle-même *)
let matrice = 
  Array.init lignes (fun _ -> Array.of_list (List.map int_of_string (split_spaces (input_line stdin))));;

(* fonction pour afficher votre solution *)
let affiche_solution v =
    print_int v;
    print_newline();;

(* Mettez apres ceci le corps de votre programme *)
(* N'oubliez pas de terminer par un appel a affiche_solution !*)

(* Debut de votre programme *)


(* Fin de votre programme *)