s;;f1cfeF1fF1124f36f6ff3F112F2f6F1df11112f24f6F12F118f11122F4f1f111
F12f6F1116;&s;f[^f]*;($,=1-2*$&!~/f.*/)&&printf"%c",$.+=@{[map($,*=
(grep{(1x$_)!~/^(11+?)\1+$/}1..43)[hex]||1,split"",$&),$,]}[-1];ieg