#!/usr/bin/perl -s0777
$_=<<'',s'3'(q))(e))l]'g,s']'|a-mn-z($)&|n-za-m$(&)|;'g,s'`'/g,s/'g,s/./$'/ee
#y]s/\n#/`#/d(&bmul(\$`%/s-.|\\n-`\//-ge;`@(.)/;\$$1=`4/pack("`$"/$'/ee 
#(e)=1@x~f=^.$..&*(=0()=;$(x=ha4B*",4H*",(x&&&=~f(^0*((@*0;qb 'ovtvag.cy'@"(a
#=~%@*)onq#*,16&,urk()&/@;6k$1-(q*2+$(:=$(q*2-1+("&>>1&&@_<>."\0"k$(:-1&;!3(q
#?%(t?(e=():0,""-r:cevag(e;f!$.|\a&{(:}!@_()@,1@"0;%@")onq#",256&,beq()&/@_(x
#;%@,)ozb#,,(,&,(*&,()?(,=)ozb#,,("&,(*&:0,""/@;~%$(,,("&=)oqvi$(,,256&@_4C",
#("&.(_,5/3cevag!tr

