s bb q$push@;,chr($.$str->[$_].chr($_%($-||=1<<1|1)++?($_-1)%($-
-1)?$-*11+1:$-*11-1:$-*24-2).ord(($/,$;,$",$[)[$_%$---]).')' bee
foreach$|..@{$str=[map{hex}unpack q$H2$x($]*$]),pack'H*',q 8408.
q 0599344167d4e3f7e7445a22a348542623c48316d7745a2260]}-1;print@;