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