let MyFunction1 x = 
    let workingVariable1 = x + 1
    let workingVariable2 = workingVariable1 + 1
    let y = workingVariable2 + 1
    y,workingVariable1,workingVariable2
 
MyFunction1 2 |> printfn "%A"
 
type OneType()=
    member val Y = 0 with get,set
    member val WV1 = 0 with get,set
    member val WV2 = 0 with get,set
 
    override this.ToString() =
        sprintf "Y: %d; WV1: %d; WV2: %d\n" this.Y this.WV1 this.WV2
 
let MyFunction2 x = 
    let workingVariable1 = x + 1
    let workingVariable2 = workingVariable1 + 1
    let y = workingVariable2 + 1
    new OneType(Y=y,WV1=workingVariable1,WV2=workingVariable2)
 
MyFunction2 2 |> printfn "%A"

bGV0IE15RnVuY3Rpb24xIHggPSAKICAgIGxldCB3b3JraW5nVmFyaWFibGUxID0geCArIDEKICAgIGxldCB3b3JraW5nVmFyaWFibGUyID0gd29ya2luZ1ZhcmlhYmxlMSArIDEKICAgIGxldCB5ID0gd29ya2luZ1ZhcmlhYmxlMiArIDEKICAgIHksd29ya2luZ1ZhcmlhYmxlMSx3b3JraW5nVmFyaWFibGUyCgpNeUZ1bmN0aW9uMSAyIHw+IHByaW50Zm4gIiVBIgoKdHlwZSBPbmVUeXBlKCk9CiAgICBtZW1iZXIgdmFsIFkgPSAwIHdpdGggZ2V0LHNldAogICAgbWVtYmVyIHZhbCBXVjEgPSAwIHdpdGggZ2V0LHNldAogICAgbWVtYmVyIHZhbCBXVjIgPSAwIHdpdGggZ2V0LHNldAoKICAgIG92ZXJyaWRlIHRoaXMuVG9TdHJpbmcoKSA9CiAgICAgICAgc3ByaW50ZiAiWTogJWQ7IFdWMTogJWQ7IFdWMjogJWRcbiIgdGhpcy5ZIHRoaXMuV1YxIHRoaXMuV1YyCgpsZXQgTXlGdW5jdGlvbjIgeCA9IAogICAgbGV0IHdvcmtpbmdWYXJpYWJsZTEgPSB4ICsgMQogICAgbGV0IHdvcmtpbmdWYXJpYWJsZTIgPSB3b3JraW5nVmFyaWFibGUxICsgMQogICAgbGV0IHkgPSB3b3JraW5nVmFyaWFibGUyICsgMQogICAgbmV3IE9uZVR5cGUoWT15LFdWMT13b3JraW5nVmFyaWFibGUxLFdWMj13b3JraW5nVmFyaWFibGUyKQoKTXlGdW5jdGlvbjIgMiB8PiBwcmludGZuICIlQSI=