Module Topdirs
val dir_quit : unit -> unit
val dir_directory : string -> unit
val dir_remove_directory : string -> unit
val dir_cd : string -> unit
type 'a printer_type_old = 'a -> unit