module Cam_dbg: sig .. end
sig
end
val print : ?level:int -> string -> unit
?level:int -> string -> unit
print s
s
debug_level >= level