MessagePassing in fsharp

MessagePassing.fs

// Learn more about F# at http://fsharp.net
// See the 'F# Tutorial' project for more help.

type MyObjectMessage = 
    | PrintState
    | Set of int;;

let MyObject() = 
    let refVar = ref 0
    let dispatcher = fun message ->
        match message with
            | PrintState -> printfn "%i" !refVar
            | Set(i) -> refVar := i
    dispatcher;;

[<EntryPoint>]
let main argv = 
    let m = MyObject()
    Set(1) |> m |> ignore
    PrintState |> m |> ignore

    0 // return an integer exit code