let cb_on_opted f = function
    | None -> ()
    | Some v -> f v ; ()