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