let dbg fmt = printf ("DBG: " ^^ fmt ^^ "\n%!")