value ora_fetch_foreach: cursor -> (array ora_value -> unit) -> unit = 
fun rs f -> 
    let rec fetch = fun rs f -> do {
        let r = (occi_fetch rs) in f (r);
        fetch rs f
    } in
    fetch rs f