1type t 2 3val make : ?extra_load:string -> string -> t 4val on_message : t -> (X_protocol.response -> unit) -> unit 5val post : t -> X_protocol.request -> unit 6val eval : id:int -> line_number:int -> t -> string -> unit 7val fmt : id:int -> t -> string -> unit 8val reset : t -> unit