#!/usr/bin/perl use strict; use warnings; ;$_=q~&6P+H;M`4K]N!L$5@QtDLBO1`4#]AKC(mdfFkDqXF$1dEc+D>$3uAA[>Fm9@P&QN[CZ>BJ X:"*2Bf@Rj)h(@ZIXvH`P6DR0zHAJR#@admir{JKMP,NBZ8IC`*NB$xDHXPJ^DhAH;TVB(.kbyTJ X>J"HbMBX&D!`al{ ]^m)NXnBhYd+ZCpC MVEA0`H"8(JbX$L"PjDv`H'C,lOg Y:MC,2EB@FT]m*CC tFAD G@9.%]p@PlPbEPqX D"G1 E;eY=M@VdD$dx[qsOdDPY{ELj$H@ETm`P)P T^`l!d.YKJ@H]9bwem !,a!`p]71aEH^`'NcwPXyT K&0L \\PEl(D fX^{ 8@ws%tI@XB`n,Z@@&KfGxNh>J`G@ "AX8 `@Hp 'bdD @_+> aXJA zV!T E>"@ xB2N @\\C`GKZA>CXiBJJ`*b$I0BBldpa qLHH jBJA @uIP g1[`IC0BQ@@`\\#&q@OCP) P'B(HpA@F@ hH@$KDdrWI(,C^FQVE\\J4L`HF08 BFX9 TA2? $]Ap?`lGmDtTQU@dMP?DHx Q0KLi`HH[1 G.RTY B@)H `VrE4N.YYU,^_Sj'@kK$+V[I;MFK8PB*C ka&Q Z!|"gBHjKfHPNI<\\r@`HI{Sa>G+ >B[] JDFt BKdKUSXHMVK@IJ>D9$A6M@5CXMyn !&\\ @;`D aB@`P_hF@eS@)F0G %k'l JxdBRI$Y(B D@8f DDxDbvRhd6 2D|< @HIHFi9"^JyF@pC@Bv(BAN48$!:V[`B&xR 9y_dXE,@r#+WzMXA @D0h 2f:NJGce&) Vbi% .\\Y"V]J@QbB9"M@pn)LAD7Zg(hMeZU@[X yi=8Xxo%wGt.(8az Unq{ NCr?[NkU4[ Olm7[S,u5[Y.EuB:@`*DHx[$B![X n6t> lFb1 VRA[O]e4`L0@D`_SX8|YfPHHVx\\E`'mpTvnFzHP.8xJD!")X02b6HX$B%(S \\83 ">Lx pI0M bJK@5"{8DD `Q`xDJRHh(^Z|>U@DAPAFZ@P@D\\<8x@^AMJ^\\~;s{\s} {}g; s/(.)/join "",map{ord$1&2**(5-$_)?1:0}0..5/ge;my(%d,%r);sub p{sprintf"%b",0+keys%d};$d{ chr$_}=p for 32..126;sub r{$;=1+int log(1+keys%d)/log(2);$_="0"x($;-length). $_ for values%d;%r=reverse%d;s/(.{$;})//?$1:0}$a=$^=$r{r()};while($"=r){$^=~ /(.)/;$.=exists$r{$"}?$r{$"}:$^.$1;$a.=$.;$.=~/(.)/;$d{$^.$1}=p;$^=$.}eval$a