let print_statistic_float label value = print_endline (right_pad label 30 ^ ": " ^ (left_pad (convert_float value) stats_width))