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