let table n =
  let tab = Array.make n (Array.make n 0) in
  let max = pred n in
  for x = 0 to max do
    let count = ref 1 in
    for y = 0 to max do
      tab.(x).(y) <- (succ x) * !count;
      Printf.printf "tab.(%d).(%d): %d\n" x y tab.(x).(y);
      count := (succ !count)
    done;
    print_char '\n'
  done;
  for x = 0 to max do
    for y = 0 to max do
      Printf.printf "tab.(%d).(%d): %d\n" x y tab.(x).(y);
    done;
  done;
  tab