let
create ?label () =
match
label
with
None
->
create []
|
Some
label
->
create_with_label label