sig
  val tmp_dir : string Pervasives.ref
  val new_tmp_file_name : string -> string
  val remove_tmp_file : string -> unit
end