(** given the base name of an image, returns its full path *)
val image_path: string -> string
+
+ (** 2>/dev/null, HLog = (fun _ -> ()) *)
+val shutup: unit -> unit
+
+ (** outputs the preamble of a generated .ma file *)
+val out_preamble: out_channel -> unit