Module Tui

type event =
  1. | Key of string
  2. | Tick of float
type 'model program = {
  1. init : 'model;
  2. update : event -> 'model -> 'model;
  3. view : 'model -> Curses.t;
  4. over : 'model -> bool;
}