sig
  type 'a send_request = Group_req | Send_req of 'a | Timer_req
  type 'a receive_request =
      'a Rcomm.Request_types.Application_to_rcomm.send_request list
  type 'a message =
      Create of Proc_info.t
    | Destroy of 'a
    | Is_valid of 'a
    | Send_message of 'a * View.t * Iovec.t
    | Set_timer of Timer.event
    | Cancel_timer of Timer.id
  val string_of_send_request :
    ('a -> string) ->
    'a Rcomm.Request_types.Application_to_rcomm.send_request -> string
  val string_of_receive_request :
    ('a -> string) ->
    'a Rcomm.Request_types.Application_to_rcomm.send_request list -> string
  val string_of_message :
    ('a -> string) ->
    'a Rcomm.Request_types.Application_to_rcomm.message -> string
end