sig val buffer_size : int val buffer : string val file_copy : ?perm:Unix.file_perm -> ?flag:Unix.open_flag -> string -> string -> unit end