let _verbose = ref false
let set_verbose b = _verbose := b
-let verbose ppf fmt =
+let msg ppf fmt =
if !_verbose
then fprintf ppf fmt
else ifprintf ppf fmt
+
+let start_msg ppf s =
+ msg ppf "@[%s" s
+
+let end_msg ppf s =
+ msg ppf "@]%s@?" s
+
+let verbose a b = msg a b