(defun f()(or A(set'A(coerce(format()"~8,'0B"(read-byte S))'list)))(eq(pop A)#\1))(defun m()(dotimes(i(length(do()((=(incf C)M)B)(do((j 0(1+ j)))((f)(do((k 1(1+ k))(n 1(+ n n(if(f)1 0))))((> k j)(setf(elt B C)(1- n)))))))))(if(= #1=(elt B i)0)(setf(elt D i)(car Z))(let((v(pop(cdr(nthcdr(1- #1#)Z)))))(setf(elt D i)v)(push v Z)))))(file-position(setf S(open"test.l":element-type'(unsigned-byte 8)))619)(setf A()M 9202 N 2086 B(#1=make-array M)C -1 D(#1#M)Z()_(dotimes(i 123(m))(push(int-char i)Z))Y()Y(sort(#2=dotimes(i M Y)(push i Y))'char<= :key(lambda(i)(elt D i)))_(#2#(x M(terpri))(princ(elt D(setf N(elt Y N))))))oY@q2h*  6@9M+4-4 LR!B$`bCRde(AHSQbSg4EhS[8 Y$mq,r.09AC ,d&H,lHǃ__:0Db(QG&R1,XT!" 2)F! q6!RC0d<(h6KZOSM o2 (lIB" -BDa-"`MBXcMc΂|*c[P 2#8` E H?1%I|+/. 2! BJ,K!yWbnk+|<A(2@[2!*"66 Tb2 AiL ԁJPd<(h )xIDGY8b 5¢ E捼,)1Fe\b_xPPZxslP@K Y|.`ȌHc"&600AF<W*ԗD`G] l/lx\xm$42bѐ∊)D5^*#F= PPL*$t'`*rN*)bzLJu>(W- ^dԋ¢8vr"p@P}X/-tr+!%4m Yr\$Jh5W[-:R6t'mRHErfWڎN1ȉi#OR1fSTmpȈHO׉IHd& UMm*dF1cE aHJbq)#%œsf /2HHʬk)QB8I2f$.!^A͝ Y8Ah8%!(lhe 8" &T"sd$YEcB$!R /hHMȇF X ( p (q"…܂B!BbXՄ\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̎ ZT(Amg]-#:QiUitZDB*~KX03,  M҇E Z'"8R8 <$@K@$ cHB &<\SU`+pU?O0/K_?BaPMF0yGhx@„@Ȣ%S"E $_ֆPD@HHH"8Q[$*‚qyX@PPōXiE-FW9qBH)RJoJ@ƘAij1 Q!B3& L͛Gz 15Ŋ)(eBHǦ{tQZ4i $' E*H &(CBD@ɗm v!h I?e|@pcBl8XY'a1B 1ΈhF*vR9dNgS RAR %i1 FDDT$#$1)*-7wU&$yN 9Sً吤n$_1YfRPX&)"rA>ÆK//˘D|t'zJI ?`t5YWM׳XPAy8DQwѤ#,*(M"K TKAdEeQ'c@8SУCw'>6<"52Ǐ@#  ~W!)l0~ 1M B+(`9!|Y0H0RP"e&pS !y'/E X)2T!nd&ԸXRZJGi!VTEE^JnRa9OvcNbI% %+DlvEi쁙\IDLC#!F\0{ P@0!( 6-D 9S 5!$lZ#IRDB0!D !CyY,/C+䬪,aE 2,LZ\CfRS0B]t*It§EvulApat@|{HHpEB%#8b($"A(EXc+ YIl `Y= HR(ܑy$! YaNQYGeb% _!)SCP@c( Fz8ȳˑ OwBSBILD32"Rl\`/ IXG)̋ 9!C͜ !F1)DinAbJء"SHX 5I,Y 4˜J#PsT \B MgI8d68 BГ(} #DB B «/_/oXDS/"dTY2phB?8Li S$0࡙0DQIR?6cA!,XHF9#D1aC+Ĩ?f$& BAŇcH` KPS?%аxP0@euIN,@"6=t(, X@Qk%,kFЇjbkHQK2̵=&U"2~wEFIң\:Is/~?rÏ  ALZhs(S!A FD R$BQ*YE P$LF! T d