let print ?(level=1) s =
  if level <= Cam_config.debug_level then
    prerr_endline s
  else
    ()