(file-position(setq a()s(open"test.l":element-type'(unsigned-byte 8)))743)(defun f()(or a(set'a(coerce(format()"~8,'0B"(read-byte s))'list)))(pop a))(defun g()(let((b(make-array 9202))(c -1))(do()((= c 9201))(do((j 0(1+ j)))((eq(f)#\1)(do((k 1(1+ k))(n 1(+ n n(if(eq(f)#\0)0 1))))((> k j)(setf(elt b(incf c))(1- n)))))))b))(defun r(n s)(setf l(length s)b()b(sort(#1=dotimes(i l b)(push i b))'char<= :key(lambda(i)(elt s i))))(#1#(x l(terpri))(princ(elt s(setf n(elt b n))))))(defun m(c p)(let((b(make-string 9202)))(loop for x across c for i from 0 do(if(= x 0)(setf(elt b i)(car p))(let((v(pop(cdr(nthcdr(1- x)p)))))(setf(elt b i)v)(push v p))))b))(r 2086(m(g)(coerce".\" fe,noskdr;cmtygla-!: hEFupVMwISbxAD5621P'NCHOTXURLviGjBzWJYqQ"'list)))ȊbB9 N(X6X@9M+4-4 LCR!B¢F A8E):FRH 40E,:ycO$YƉ? ပ Y$mq,r&$$8DI (РBdĊ L 8رLxmx!TQǡ艔i(HHB, JAbb(\a Hq Y9#D0M2RķSB[̸s]O!>UB(E5"𨦎'8]\E#6bKa ]/<`bc BA%I*E|s+*sKt7IT2dvr"ZHS섔e!Y"U9{D\(";(.uRB1 %Uq9kJYbBGRF'Hb qdř$H(h)̣'?T`ЂxLY iWP@.<`gBANZ bŹJ$Yf*p,Ir*qEl"( YQbXЉT r!QF$4 C< $Hw P5a!q$i  bt5f؀P ԘD yEP0oȄ ( H\=@$(Ä )cE&%.$I8*4q$`P &.(AE A $AP3>\P(q?E6<BDbA 6p8 RLAU!l&BB`P@B`(,H4XQb $H0$"ph"bU4飄’ 5$XUℼ-CCG`BB1n+iN2D )BbFaL%ێj8|m +*-DĐvdkhpP+_B2L$CҋX B)/J:h,$r_(Q_"06QːEtb5L#_YIO$PlOJBbɍR[zR-ؖVV z̎ ZT9&ttMD"z_UҪi fWԪeI/bC#P#P,l497J%hLRHx,A#pH$6,!<Ě EqNB!Upƒ!T?I/~XC  B6! TqD"bLo; Ce$*pLjg_Z8aBA!" FoT |: bBBy.yBC5aHIQ\x 'I*"U*!sa'D .$+8A36l[ A$&(hY m"6EҦEFhѦ +,x*^(X2sq#0 E aC&^m%;$!1 ad+T$*R:"JO+I \H"%;mNH,9Jr!1JG Ѥ2)aS{(ĐĤT :J,b,dLWf/BZ_|e%JdAdD.0Yba┣ Va@2{_ڦCHD!sB8|y1[ɑ 1^eJR! {HSi$6*ވqpLAA`BL3 ".X8h.cBq f CPet]{9#A%~0 PKHQ?Pp2=¡"--,4Jd JDQV]%v=D *31] 4<rSc!JoP|x1h$ߕi [ (LxC$P1!&Np_",L :nx剜57|ig$ f QB19 bA9̕+[ _.&V=rTdEBQo!-rW[XNSݘ!SIj2}H&BIJ!ZD<; f@CQ"S` BT44 fJ0q!p_K.KV#(*ȤYL/*@Bb(E% !8(fL$}QRT"H@!+e( XPJ*ى qa X p:R a.Tc4,.5 +.b8YzpzS&n}/4C].-%  ,ga5ZIaD$&0pKѼ4!ڶ؄Z>Ttu̳-OIyȤ$̾D_Qza4W*οk\u_o'k* }lÐE"V;* DB.T 89qĔc QE8T0f,`U$3DŽ