1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

 

type Foo =
    | I of int
    | S of string
    with
        member this.GetInt() =
            match this with
            | I(x) -> x
            | _ -> failwith "oops"
        member this.GetString() =
            match this with
            | S(s) -> s
            | _ -> failwith "oops"

let myFooInt = I 42
let fooVal = myFooInt.GetInt()