let train alpha ?decay () net (input,example) =
   let new_net = copy net in
   train_in_place alpha ?decay () new_net (input,example) ;
   new_net