RosettaCodeData/Task/Deepcopy/OCaml/deepcopy-2.ocaml

let copy h =
  { size = h.size;
    data = Array.copy h.data }