use 5.026;
use warnings;

say for
   map { 
      unpack q{xl>}, $_;
      }
   sort
   map {
      my $neg = $_ < 0 ? 1 : 0;
      pack q{Cl>}, $neg, $_;
      }
   -4 .. 4;

##</code><code>##

0
1
2
3
4
-4
-3
-2
-1