let dbg fmt = ksprintf (fun s ->     if !debug_mode     then eprintf "biokepi-debug: %s\n%!" s     else ()   ) fmt