test.fs

open System

type Description = Description of String

type Room = { 
    Description: Description
    Objects: Object list
}

type Object = {
    Description: Description
}

[<EntryPoint>]
let main argv =
    let room = {
        Description = Description "The room is cold and dark"
        Objects = [{ Description = Description "A candle glimmers in the corner"}]
    }
    printfn "%A" room.Description
    //room.Objects |> List.iter (fun obj -> printfn "%A" obj.Description)
    0 // return an integer exit code