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