let hinge2_loss y y' =   let z = hinge_loss y y' in   MX.(z *@ z)