TOP
my @vn;
my $m;
for my $n ( 2, 3, 5, 7, 15, 43 ){

	$m = num_to_nat($n);
	push @vn, get_mark_from_nat($m) ;
};

print join "\t", @vn;
print "\n",
# print  map { join( ' ', $_, '(' . wildmark_to_num($_) . ')' ) } @vn;
#print "\n";

my @hexvn;
#                                  ______
@hexvn = map [ $_, sprintf( "%0x", length($_) ), 'my todo hex()', transform_to_hex($_), "\n" ], @vn;

print  map { my $arr = $_ ; join "\t", map{ join ' ', $_ } @$arr } @hexvn;
print "\n";

OUTPUT
||      |||     |||||   ||||||| ||||||||||||||| |||||||||||||||||||||||||||||||||||||||||||

testing prim nat: ||
split_pat: (?^u:(\|\|))
splitted: 1 x || h remainder:
prim nat was ||
prim nat now


testing prim nat: |||
split_pat: (?^u:(\|\|))
splitted: 1 x || h remainder: |
prim nat was |||
prim nat now |


testing prim nat: |||||
split_pat: (?^u:(\|\|))
splitted: 2 x || h remainder: |
prim nat was |||||
prim nat now |


testing prim nat: |||||||
split_pat: (?^u:(\|\|))
splitted: 3 x || h remainder: |
prim nat was |||||||
prim nat now |


testing prim nat: |||||||||||||||
split_pat: (?^u:(\|\|))
splitted: 7 x || h remainder: |
prim nat was |||||||||||||||
prim nat now |


testing prim nat: |||||||||||||||||||||||||||||||||||||||||||
split_pat: (?^u:(\|\|))
splitted: 21 x || h remainder: |
prim nat was |||||||||||||||||||||||||||||||||||||||||||
prim nat now |

||      2       my todo hex()   1 x ||  remainder:
|||     3       my todo hex()   1 x ||  remainder: |
|||||   5       my todo hex()   2 x ||  remainder: |
||||||| 7       my todo hex()   3 x ||  remainder: |
||||||||||||||| f       my todo hex()   7 x ||  remainder: |
|||||||||||||||||||||||||||||||||||||||||||     2b      my todo hex()   21 x || remainder: |

Press any key to continue . . .