let
dbg fmt =
Printf
.(ksprintf (eprintf
"# %s\n"
)) fmt