let iter f =
    Array.iter
      (function
         | None -> ()
         | Some x -> f x)