use strict;;use integer;;use constant E=>4;;$-=
join$|=>pack+q{Z*},E<<untie my$noose or die;$/=
join$|=>pack"AA",exp,!untie my$shoe;@@=split$!,
join$|=>pack("A*",(fileno$~)x(E)),($^E)x(E);@[=
                 @@,@@[0,-~0]=@@[-~0,$[],@&=@@,
                 $&[~1]=$&[exp],%%=map{local$_=
join$!=>$/,@$_;
        pack+qq{\Ub$-},$[x($--length).
               $_}[@&],[reverse@[],[@[],[@@],[
               reverse splice@@,1,$#{@}],[$/];
die%%