let specificity cm = 
  float cm.tn /. float (cm.fp + cm.tn)