let dbg fmt = Printf.ksprintf (Printf.eprintf "DBG: %s\n%!") fmt