(match command (("quit") (display "Goodbye!")) (("look") (describe current-room)) (("get" obj) (character-get obj current-room)) (("go" dir) (set! current-room (room-neighbour dir))) (_ (display "Invalid command")))