let accuracy cm =
  float (cm.tp + cm.tn) /. float (cardinal cm)