val on_message : Protocol.action -> Protocol.answer
val run : unit -> unit