Select Code to Download

for(0..9){
...
         -command => $number=$number==0||$equals!=0?$input:$number.$in
+put,
    ) -> pack();
}

C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}