sub report_section {
    my ( $header, %types ) = @_;

    say $header;

    for my $type ( sort keys %types ) {
        say "$type: $types{$type}";
    }
}