let
value o ~default =
match
o
with
Some
s
->
s
|
None
->
default