sig
  type acs = {
    ulcorner : Curses.chtype;
    llcorner : Curses.chtype;
    urcorner : Curses.chtype;
    lrcorner : Curses.chtype;
    ltee : Curses.chtype;
    rtee : Curses.chtype;
    btee : Curses.chtype;
    ttee : Curses.chtype;
    hline : Curses.chtype;
    vline : Curses.chtype;
    plus : Curses.chtype;
    s1 : Curses.chtype;
    s9 : Curses.chtype;
    diamond : Curses.chtype;
    ckboard : Curses.chtype;
    degree : Curses.chtype;
    plminus : Curses.chtype;
    bullet : Curses.chtype;
    larrow : Curses.chtype;
    rarrow : Curses.chtype;
    darrow : Curses.chtype;
    uarrow : Curses.chtype;
    board : Curses.chtype;
    lantern : Curses.chtype;
    block : Curses.chtype;
    s3 : Curses.chtype;
    s7 : Curses.chtype;
    lequal : Curses.chtype;
    gequal : Curses.chtype;
    pi : Curses.chtype;
    nequal : Curses.chtype;
    sterling : Curses.chtype;
  }
  val bssb : Curses.Acs.acs -> Curses.chtype
  val ssbb : Curses.Acs.acs -> Curses.chtype
  val bbss : Curses.Acs.acs -> Curses.chtype
  val sbbs : Curses.Acs.acs -> Curses.chtype
  val sbss : Curses.Acs.acs -> Curses.chtype
  val sssb : Curses.Acs.acs -> Curses.chtype
  val ssbs : Curses.Acs.acs -> Curses.chtype
  val bsss : Curses.Acs.acs -> Curses.chtype
  val bsbs : Curses.Acs.acs -> Curses.chtype
  val sbsb : Curses.Acs.acs -> Curses.chtype
  val ssss : Curses.Acs.acs -> Curses.chtype
end