rooms.fs

type Description = {
    text: string
}
type RoomObject = {
    Description: Description
}

type Room = { 
    Description: Description
    RoomObjects: RoomObject list
}

[<EntryPoint>]
let main argv =
    let room = {
        Description = { text = "A candle glimmers in the corner" }
        RoomObjects = [
            { Description = { text = "A candle glimmers in the corner" } }
        ]
    }

    // print description of room
    printfn "%s" room.Description

    // print description of objects in room
    room.RoomObjects
        |> List.iter (fun RO -> printfn "%s" RO.Description.text)
    0