let lwtbip i = if Ocsiconfig.get_veryverbose () then let s = "bip"^(string_of_int i)^"\n" in ignore (Unix.write Unix.stderr s 0 (String.length s))