type t

val split_at : len:int -> t -> string list
val make : nickname:string -> string -> t
val nickname : t -> string
val message : t -> string

val msgf :
  ?nickname:string
  -> ('a, Format.formatter, unit, t) format4
  -> 'a