my $key = new EDF::RecordKey;
my $col = new EDF::KeyColumn;
$key->add_columns($col);
$col->type = PVAL;
my @pvals;
for my $i ( 1..10 ) {
   push(@pvals, new EDF::PVal("Number", $i));
}
$col->add_values(@pvals);
$col = new EDF::KeyColumn;
$col->type = DVAL;
$key->add_columns($col);
my @dvals;
for my $i ( 1001..1010 ) {
   push(@dvals, new EDF::DVal(1000, $i));
}
$key->add_values(@dvals);