let total, infected = Utils.countCells cells
fprintf resultFile "File: %s %d %d %.2f\n" id total infected (100. * (float infected) / (float total)))
let total, infected = Utils.countCells cells
fprintf resultFile "File: %s %d %d %.2f\n" id total infected (100. * (float infected) / (float total)))