type privmsg = {
source : string;
dest : string;
message : string;
}
type message = [
|
`Join of string list
`Part of string list
`Privmsg of privmsg
]
type send = {
message : message;