let
(|=>) (x:
'
a option) (default:
'
a) =
match
x
with
Some
v
->
v
|
None
->
default