-push @table, qw(
- >hoorn: eenhoorn zee-eenhoorn waterhoorn? aardhoorn? neushoorn eekhoorn
- >haas: haas zeehaas ? ? ?
- >olifant: olifant zeeolifant waterolifant? landolifant? ?
- >vlo: vlo strandvlo watervlo aardvlo ?
- >bra: bh? zebra waterbra? aardbra? cobra
- >draak: draak zeedraak waterdraak? aarddraak? ?
-) if exists $get{v};
-splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v};
-splice @table, 6 * 5, 0, 'beverrat' if exists $get{v};
+
+if (exists $get{r}) {
+ use List::MoreUtils qw( part );
+ my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
+ @table = ();
+ for (@trans) {
+ unshift @$_, '?:' if $_->[0] !~ /:$/;
+ $_->[0] =~ s/^#?\K>?/>>/;
+ for (@$_) {
+ push @table, s/^#?\K>/$1/r;
+ }
+ }
+}