Toplevel_backend.S
val dir_directory : string -> unit
val dir_install_printer : Stdlib.Format.formatter -> Longident.t -> unit