#000000000000001234567
>perl -e"print 4004>>1"

##</code><code>##

perl -le"print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])"
perl -le'print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])'


perl -le"print $^F + join'',$^F,$|,($|.. ~~ map ord~$_,split//,~$^)[$|,~$0]"
perl -le'print $^F + join"",$^F,$|,($|.. ~~ map ord~$_,split//,~$^)[$|,~$0]'

## works sometimes
perl -e"$a.=$_ for unpack 'c*',~$^V;@ARGV=sort(split//,$a);map pop, $^F+$^F..$#ARGV;print pop,shift,shift,pop"


##</code><code>##

perl -le"print $]<<$^F,$[,substr$]<<$^F,-2,1"
perl -le'print $]<<$^F,$[,substr$]<<$^F,-2,1'

perl -le"print $]<<$^F,$^F>>$],$^F>>$|"
perl -le'print $]<<$^F,$^F>>$],$^F>>$|'