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