ELF@@8@ H H H pp A ; ?T ?; ?T @;3@T?@;e@Tq@Tp@|w@{@qUg@GP 0@p`' 0 T m@|  \@j@qU d@G ' T n@4 )T t@Tt@|E@q@qUk@G;r@'` H  T t@4 ); r@H  T {@4 ); y@H  T @4 ); @H  T ?4 ); }@H  T @4 ); @H  T ?4 ); @H  T ?4 ); ~@H  '@ `;@T@|?@qU@G`p'P|;@T@|?@qU~@G@`p0'#;}@`Pp@'A ;WA;AB HHB HH 'A 'A| |}G|G''&A'A 'ATA||?AqUAGP'@|!| TA|d?AqUAGTAP'0'''A|C?ApUAG'A 'ATA|*?~AqUxAG`p'P|`| Y|T}QG' G|@}=| /|*}'G`'`|G|}G|}GB HHGB HH`'&A&AGB HHB HH'B HH'&JA''SA PTA|>AqU@GP'P|1TA;>P'Q '`0T@;#A'@0|} G| G'''P'A @@'|TA|Y>@pU@G#0@ '@'@ PT@|?>@qU@GP'P| B HH@'P'@ '@ Ti@|>f@qU`@G`p'` | `p'P |<| 9p'P |'T@|=@pU@GB0>EL<!LHT:@Pp'` #`pP'B HH`'p'@ @G@'0T?|=?qU?GP'@| B HH0''`@ B0>EL< LH'c_@ `T?|s=?qU?GP`'`| P`'P| | |}GT'@|H=$@pU@GGPp@'&x?'T@ Vi<;d<1Uh<U<Vh<;c<1Ug<Uu<Vg<;b<1Uf<Uf<Vj<d<Vk<e<Vl<;g<1Uk<Ti<1Ug<Vi<Vn<;i<1Um<Tk<1Ui<Vk<;f<1Uj<U<Vj<;e<1Ui<Uw<Vi<;d<1Uh<Ub>Uf<Vj<d<Vk<e<Vj<f<Vk<g<Vn<;i<1Um<Tk<1Ui<Vk<;f<1Uj<U<Vj<~;e<1Ui<Uw<Vi<{;d<1Uh<Uh<Vl<f<Vm<g<Vn<r;i<1Um<Tk<1Ui<Vm<k;h<1Ul<Ul<Vp<fVw<kV|<r;w<1U{<U=U=Vy<k;t<1Ux<V|<hV<LV<l;}<1U<V<V<f;<1U<V<V<b;<1U<V<V<mV<[;<1U<V<V<V<V<O;<1U<U<U<V<<V<EV<JV<WV<2V<[;<1U<U<;<U2=U<U<Uj=V<L;<1U<UG=U=U<U<V<A;<1U<U<V<<;<1U<U>U<U<V<<V<0;<1U<U<;<U<U<V<<V<&V<<V<*V<<V<<V=<V =<V<<V<<V<V<<V<<V<<V<<;<U<U<V<;<1U<U<V<:;<U`=UL=U&=U=U<U<U<V<<V<<V<<V<<V<<V<<V<<V<<;<U6=U"=U<U<U<;:U =U =U<U<U<V<<V<;<1U<U<V<<V<<V<<V<<V<<V<<V=<V<;<1U<U<V<<V<<V<<V<<V<<V<<V<<V=;<1U=U^=U=V<V =<V=;<US=U=V=V=V)=V:=VA=5=VJ=EVS=Vl=V=V=;=1U=U=V=;=1U=U=V==V=;=1U=U=V==V==V==V=='ice-9'peg' simplify-tree'filename'ice-9/peg/simplify-tree.scm'imports'system'base'pmatch'exports'keyword-flatten'context-flatten'string-collapse' declarative?'guile'define-module*'set-current-module'single?'macro'make-syntax-transformer'andlst' string-list?' string-group'mklst'any' $sc-dispatch'-source expression failed to match any pattern'syntax-violation'top'ribcage'dummy'x'm-1521c74d5a85ce6b-1'l-1521c74d5a85ce6b-6'l-1521c74d5a85ce6b-7'l-1521c74d5a85ce6b-3'hygiene'_'else'wrong-type-arg'car'6Wrong type argument in position 1 (expecting pair): ~S'list?'string?'map'cdr' string-append'append'member' macro-type' syntax-rules'patternsd|pp ( P  " "* * `7`7`7`7 X`7  EE E EEEEE -E4 =n=r&=r2=v"=v6=6<P@@(HE 4x    hh1 |*<H H pEbMU( k z!* (@8xn8!D2D00tt 0!0 (  X\ Xxqxdx d$ $ * G d R d    T T p    (/3 8 ? L Y i o  $,4 <(D0L8P@XHtH|HH    0H (/3 (/33 8@D(`px    ,   4DXp (/3(/  08< Tt $,0 (/3      08<X(8(/3   08<(Thp (  (/ 3 (<X`dh(/3  08<(Tdh  (/3(/  3  08<X""0(/3  ,4PX\ t  ((/3  08<XDD3|D,D \  || !8+@ +`8L0| H N $N L ^ D< X %.. . .Guile 3.0.9andlststring-list?map@guilestring-groupstring-collapsemklstcontext-flattenkeyword-flatten C ice-9/peg/simplify-tree.scmice-9/boot-9.scm ;,a,,,b,,,b,$,b,a-|}w| w L <w; J }J+N,;<,w J}h ; =%=wij!<wg#=!i7;#v!+/J{h%f + w<,&?%JeJ l';#w.<' <,;;;wJ =w=, v*J vw,;=Z<;;wJ= w; +DD0Dt | 0 8X x,d0<$ B $B d R DT p andlststring-list?map@guilestring-groupstring-collapsemklstcontext-flattenkeyword-flattenclosureargcachevarproctmpsingle?cachedboxprimandlststring-list?string-groupstring-collapsemklstcontext-flattenkeyword-flattenvalxdummypairlstarg0arg1arg2nextinitvytsttagcodekeyword-lstReturn #t if X is a list of one element..guile.procprops.rodata.data.rtl-text.guile.frame-maps.dynamic.strtab.symtab.guile.arities.strtab.guile.arities.guile.docstrs.strtab.guile.docstrs.debug_info.debug_abbrev.debug_str.debug_loc.debug_line.shstrtab