let () =
  let mat = Array.init 3 (fun _ ->
      Array.init 3 (fun _ -> Scanf.scanf "%c " (fun a -> a))
    ) in

  print_char mat.(0).(0);
  print_char mat.(1).(1);
  print_char mat.(2).(2);
  print_endline "";

