let copy net =
   List.map (Array.map (fun (weights,transfer) -> (Array.copy weights,transfer))) net