1
2
3
4
5

type t = string

let initial = "sava"

let fprintf fmt s = Format.fprintf fmt "TOPIC : %s" s