let print_statistic label value =
  print_endline (right_pad label 30 ^ ": " ^ (left_pad (string_of_int value) stats_width))