sub demerphq_lexi {
#         1  1      2         3         4         5         6         7         8     8 
#12345678901234567890123456789012345678901234567890123456789012345678901234567890123456

 map{$$_[2]}sort{defined$$a[0]&&defined$$b[0]?$$a[0]-$$b[0]||$$a[1]cmp$$b[1]:!$$a[0]&&!
 $$b[0]?$$a[1]cmp$$b[1]:!$$a[0]&&$$b[0]?1:-1}map{/^\s*(0|-?[1-9]\d{0,8})?(\D.*)?/s;[$1,
 $2||"",$_]}@_

# 86*2+13=185
}

sub demerphq_dict {
#         1         2         3         44        5         6         7      7
#12345678901234567890123456789012345678901234567890123456789012345678901234567

 map{$$_[2]}sort{defined$$a[0]&&defined$$b[0]?$$a[0]-$$b[0]||$$a[1]cmp$$b[1]:!
 $$a[0]&&!$$b[0]?$$a[1]cmp$$b[1]:!$$a[0]&&$$b[0]?1:-1}map{($b=lc)=~s/[^a-z]//g
 ;[/^\s*(0|-?[1-9]\d{0,8})?/,$b||"",$_]}@_

# 77*2+41=195
}