type Status = Single
            | Married of Person
            | Widowed of Person
            | Divorced of Person
and Gender = Male | Female
and Person = {name : string; gender : Gender; status : Status}

let people = new System.Collections.Generic.List<Person>()

let main =
  let herp = {name="Herp Phelps"; gender=Female; status=Married derp}
  let derp = {name="Derp Phelps"; gender=Male; status=Married herp}

  people.Add herp
  people.Add derp