that was quite the breakup

bin/topinf.mli

@@ -0,0 +1,12 @@
+(* Accessors for the table of toplevel value bindings.  These functions
+     must appear as first and second exported functions in this module.
+     (See module Translmod.) *)
+val getvalue : string -> Obj.t
+
+val setvalue : string -> Obj.t -> unit
+
+val print_toplevel_value_bindings : unit -> unit
+
+type evalenv = Format.formatter -> string -> unit
+
+val init : Format.formatter -> evalenv