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