let iteri height f =
  Array.iteri (fun i elt -> f (i/height) (i mod height) elt)