sig val draw : unit -> unit val resize : int -> int -> unit end