type t =
| Initialising
| InitWait
| Initialised
| Connected
| Closing
| Closed
val _state : string
val of_string : string -> t option
val to_assoc_list : t -> (string * string) list
val to_string : t -> string
