Module Tty_wumpus

val tunnels : int array array
type cave = {
  1. you : int;
  2. wumpus : int;
  3. pits : int list;
  4. bats : int list;
  5. arrows : int;
}
type outcome =
  1. | Won
  2. | Lost
val play : cave -> outcome Talk.talk
val program : unit Talk.talk