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