q='''$q=.0;use Compress::Zlib;eval uncompress(unpack"u*",("M>)S+3--02eE-RkQ+3=f0J=b4T.2JYE)04cjHRLPK4=d04h)*+,Y0TEf0cJjLiMR<C/`[gc2I,JE32C52IBj9R8/c5-:ZY:KM2<XE1DG4HbJ44Y0eF0h`bT`bO-i"=~y/a-k/\40-\47\12\100\134/r));__DATA__ '+%{
perl<<z;exit 0
\$x=0;$q
z
'''
import subprocess
r=q.rfind('/')
i=subprocess.Popen("perl",stdin=subprocess.PIPE)
i.stdin.write('$x=1;'+q[0:q.rfind('/',0,r)]+r'/\40-\47\12\100\134'+q[r:])
i.stdin.close()
i.wait()
'''};IO.popen("perl","w"){|l|l.write('$x=2;'+q);l.close_write};r=%{
UNUSED DATA }#'''