let
print_label label value =
print_endline (right_pad label 30 ^
": "
^ value)