type MultipleOptions = | Thingys of string * int | Wotsits of int let multiInputMultiply (MultipleOptions.Thingys (_, v) | MultipleOptions.Wotsits v) = v * 42 let r = multiInputMultiply (Thingys ("hey!", 88)) let s = multiInputMultiply (Wotsits 44)