bestMatch :: [Match] -> Match
bestMatch decrypts =
  List.minimumBy (compare `on` chi) decrypts
bestMatch :: [Match] -> Match
bestMatch decrypts =
  List.minimumBy (compare `on` chi) decrypts
bestMatch decrypts =
  List.minimumBy (compare `on` chi) decrypts