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