let printcave window cave =
       ignore (Curses.move 0 0);
       Cave.iter
         (fun w ->
            ignore (Curses.waddstr window (Cave.string_of_wall w)))
         (fun () -> ignore (Curses.waddstr window "\n"))
         cave