let print_statistic_64 label value =
  print_endline (right_pad label 30 ^ ": " ^ (left_pad (Int64.to_string value) stats_width))