sub getsubset {
    my $d = shift;
    return [
       sub { \@_ }->( @{$$d[1]}[1,2] ),
       sub { \@_ }->( @{$$d[2]}[1,2] ),
    ];
}