{ OnlyWhen => sub {
       return 0 if @_ < 2*@delim;
       for my $d (0 .. $D) {
         return 0 if $data[ $_[ $d*2     ] ][0] ne $delim[$d][0]
                  or $data[ $_[ $d*2 + 1 ] ][2] ne $delim[$d][2]
       }
       return 1;
  } },