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