sig   type t =       Resize of LTerm_geom.size     | Key of LTerm_key.t     | Sequence of string     | Mouse of LTerm_mouse.t   val to_string : LTerm_event.t -> string end