open--$--$---;$$
=[$.++...$..$.];
$_=join'',map{
map{hex ord uc}
split//}<0>;$_=
(split)[@$$[$$$[
$[]...$$$[$$$[$.
]].$$$[$[]]];
$r.= chr hex for
(/../g);$_=substr
$r,98,24;s/./chr
(abs(ord($&)-
length$'))/e;$_^=
'%4Bf y_>F q# $'.
'1f9e- &}1f';
s/(?<=ot)./h/;
substr$_,4,1,$";
print ucfirst lc
,$/;