(* 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