let additional_log: t -> (Time.t * string) list = fun t -> t.log