Pre_sexp.Tmp_file
val prng : Random.State.t option ref
val temp_file_name : string -> string -> string
val open_temp_file : ?perm:int -> string -> string -> string * out_channel