```ocaml type t = { action : [ `String of string | `Int of int ] option; [@mel.unwrap] [@mel.optional] } [@@deriving jsProperties, getSet] let x = t ~action:(`String "x") ```