sig
  type window_id = string
  val window_id : unit -> GraphicsX11.window_id
  val open_subwindow :
    x:int -> y:int -> width:int -> height:int -> GraphicsX11.window_id
  val close_subwindow : GraphicsX11.window_id -> unit
end