let statistic xs = let stat_num = statistic_number xs in let totals = sum_int (List.map ~f:fst stat_num) in List.map ~f:(fun (i, v) -> ((i * 100) / totals), v) stat_num