let
optionnaly_add_to_list l =
function
|
None
->
l
|
Some
v
->
v::l