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