let a m n =
  for _m = 0 to m do
    for _n = 0 to n do
      ignore(a _m _n);
    done;
  done;
  (a m n)