class type['a]
container =object
..end
method type_of_container : [ `Process | `Sequential | `Thread ]
method broadcast : 'a -> unit
method accept : unit ->
[ `Connection of Unix.sockaddr * Unix.file_descr
| `Message of 'a
| `Restart
| `Shutdown ]