type FirstName =     FirstName  of string

type LastName  =     LastName   of string

type MiddleName =    MiddleName of string option

type MaidenName =    MaidenName of string option

type Email =         Email      of string

type Phone =         Phone      of string

type Name = 

    { FirstName : FirstName

      LastName : LastName

      MiddleName : MiddleName

      MaidenName : MaidenName }

let someName = 

    { FirstName = FirstName "Scott"

      LastName = LastName "Nimrod"

      MiddleName = MiddleName (Some "Kevin")

      MaidenName = MaidenName None }

printfn "%A" someName