let squared_error net (input,example) =
   let est = evaluate net input in
   let sum = ref 0.0 in
   for i = 0 to Array.length example -1 do
      sum := !sum +. ((example.(i)-.est.(i))**2.0)
   done;
   !sum +. 0.0