type Person = {

    name: string 

}

​

let receive person msg =

    printfn "%s receives the message: %s" person.name msg

​

let david = { name = "David Raab" }

​

printfn "%A" david

receive david "Konrad's Message"

printfn "%A" david

​