pretty good

topinf.ml

@@ -1717,6 +1717,8 @@ module Topdirs = struct
 
   let dir_mod_use ppf name = ignore (mod_use_file ppf name)
 
+  let dir_use_silently ppf name = ignore (use_silently ppf name)
+
   let _ =
     add_directive "use"
       (Directive_string (dir_use !std_out))
@@ -1745,6 +1747,15 @@ module Topdirs = struct
            module.";
       }
 
+  let _ =
+    add_directive "use_silently"
+      (Directive_string (dir_use_silently !std_out))
+      {
+        section = section_run;
+        doc =
+          "Usage is identical to #use but #use_silently supresses all toplevel definition output.";
+      }
+
   (* Install, remove a printer *)
 
   let filter_arrow ty =