let affDiagDepl ldiag =
for j=7 downto 0 do
  for i=0 to 7 do
    print_int (diagDepl ldiag).(i).(j)
  done;
print_newline ()
done