let waddstr window x y str =
       ignore (Curses.wmove window y x);
       ignore (Curses.waddstr window str);
       ()