let
( --- ) x =
function
Some
y
->
remove y x
|
None
->
x