type priority = | Low| High
val string_of_priority : priority -> stringval priority_of_string : string -> priorityval default_async_proofs_worker_priority : priorityval tryget : int -> int optionval giveback : int -> unittype request = | Hello of priority| Get of int| TryGet of int| GiveBack of int| Ping
type response = | Tokens of int| Noluck| Pong of int * int * int
val connect : string -> Unix.file_descr optionval parse_request : string -> requestval print_request : request -> string