let create ?(use_mnemonic=false) ?label () = match label with None -> create [] | Some label -> if use_mnemonic then create_with_mnemonic label else create_with_label label