my %intermediate;
sub EmitIntermediate {
    my( $key, $value ) = @_;
    push @{ $intermediate{ $key } }, $value;
    return;
}