let
logf t lvl fmt =
Printf
.ksprintf
(
fun
s
->
t (
ELog
(lvl, s)))
fmt