my$adr=q{M97-L:6YG8T!F;&]O<"YO<F<@>6%K:V]`>6%L;'`N8V]M(&1E=G1E<FUA0
&YE<='-C87!E+FYE="!E<VQI;F=C0&UA:6PN8V]M"@```};$adr=~s|\n||;
print unpack("u",$adr),"\n";