let debug_mode = 
  ref (try Sys.getenv "BIOKEPI_DEBUG" = "true" with _ -> false)