dungeon-rooms

; all rooms
'(
    ("Screaming Alley 1" "The haunted souls wander along this pathway, in endless torture." () ((open "Screaming Alley 2") (locked "Rotten Courtyard 1" "Brittle Iron Key")))
    ("Screaming Alley 2" "The pathway stretches endlessly forward. A wretched guardian awaits you, blade in hand." ((fight "Zalik Retainer Guardian") (item "Brittle Iron Key")) ((open "Screaming Alley 1") (locked "Screaming Alley 3" "Rusted Iron Key")))
    ("Rotten Courtyard 1" "The broken stone path has been corrupted by thick black roots. In the distance, huge stone gates pierce the everlasting fog." () ((open "Screaming Alley 1")))
)
;   car r = (...)
;   car(car r) = name
;   car(cdr(car r)) = description
;   car(cdr(cdr(car r))) = items
;   car(cdr(cdr(cdr(car r)))) = doors
;   -> car(..) = door 1, ...