let
logprint fmt =
Printf
.fprintf logfd (fmt ^^
"%!"
)