objectperson.fs

type Profile (name:string, age:int) = 
    let id = System.Guid.NewGuid()
    let mutable name = name   
    let mutable age = age
    member this.changeAge (newAge: int) =
        // crazy business rules
        age <- newAge
    member this.Id with get () = id
    member val  Name = name with get, set
    member this.Age with get () = age 

let p = Profile("Bjørn Einar", 35)
p.Name <- "Bjørn the confused"
p.changeAge(30)