;2e8(U(BFIND-REAPABLE-LISPSSUBRREAPABLE-STUFF@@ ,,8,86",OPEN@ <,86,8 ,,8,8,87",EOFFN<-,~ " $4-. , ,8(`,8gw",READLINE< Bgy4BFLATC4NRF $ gyGETCHARN1N+ gyEXPLODEN(bU BgyONLY-WHITE-SPACES?4B+ LISU1P z }$f gySUBLIST-MATCH4B gy% j " LREAD-VERSION Bgx-,PURQIO $ -,5) ` DSKSYS z M0 @-, Bgx+!X( !$ z $f gy4B) gy "  Bgx)j(-,PURQIX $ -,LISP z KL T-,0(a#  BgxNAMESTRING BgxPROBEF5B%*TERPRI(b  gx*PRIN1`7  gx-, BLOOKING-FOR-FILES-USING-THIS-LISP * Jgw+ gwSKIPPING-TO-NEXT-LISP-BLOCK0B++ @+ 0B+1[3Dgx+.+ gy 4B Za * Jgw+ ,4,8,8<",QD @RERROR<+ / ",xDSK:LISP;LOCK >%DISPLAY-RESULTS4h 3ye xh g@a_xga |'r0I1xOd'xOc_Bad "state" - FIND-REAPABLE-LISPS,8J,86@`  +?T "+I[` Bg 1N+G@  1N+G1N+G1N+G0N+G "@@0+I+IZ` D`+= "/,xR, X<,<,<,8,8a-,,8 "-,,8g,8h,8@(7@g~+R6@`+S "+f[g~[` Bgj Dg7@ "(B{ZFIXNUM1B+[ $ g Nw "w Bg7Bg "(B{(Z1B+a $ g Np "p Bg g2Og+eZ`Zg~ B` Dg~+P  % "//,xKQA@NTHCDR,8,87@`+m[` 8BG#0n+o gNREVERSEIMPLODE+r g[`-,Z` Bg D`+j/jA#,xhL;REAP 12_1LSUBR,X*PRINC XsF!   "*DELQ B4Bz`| $&D,+z` $ "+ ixGa?'x( g@?d`|#pK|`_ x/c@|qJ|;p@)xxA x|d_ xdxc h9xwcx+` u;