sig
  val prng : Random.State.t option Pervasives.ref
  val temp_file_name : string -> string -> string
  val open_temp_file :
    ?perm:int -> string -> string -> string * Pervasives.out_channel
end