ELF@H @8@""H H """ppZA ;?T?; ?T ?; 1@T =@; K@TW@;@T@T@|@@qU@G@ p ` P ' 0T@|y@@qU@G  'T@4) H T@4); @H T@4);@T @'k`H T@4);@T @'\`H T@4);@T@'MpH T@4)H T@4)- >U @; @H T@4)B H H  B 0> EL < L  H  H T?4)B 0L < L  H  H T@4); @H T$?4)B 0L < L  H  H T@4)H '@|?@pU'@G'@ '@ T@'3@  %T@''` B HH }@'Tv@' B HH p`PT e@p'n@|?a@pUS@G'n@|?a@pUG@G'f@ G'@B >LHB LHB LHT (@ @'   ; I@ 0@'T K@|  R?H@pU B@G ' | T@@G'W | :T?@'| ,}  )K hv"G vG | } G y  0T@p'7 B H H  & !@& A@&>@& L@| qT?'g | c} `G T?G' T5@'1pT+@| TL?T>4oU @G|6} 3Khv-G|'}$Gy0T?' 0G B H H `' B H H  G B H H H &?& ?&?& ?TI?@' B H H  !| rT9?'|d}aGT e?G'{T?P' 1 T ?|  T >T#>4 oU ?G |6} 3Khv-G|'}$GyPT-?0'PGB HH'B H HGB HHH &*?& J?&X?&j? @' .HG T >' lHBP>EL<3LHHH'^?|=Q?pU>G'^?|=Q?pU>G'^?|+=Q?pU?G'? `T[?~PBTa?~P9Tg?~P0Tm?~P*GG|!T>| T>Tw=4oU>GGG;V?Td?`'@GH`'`'%f?GG'GG''d? G'c? '?T?p'@| ;R?TX?`'0T>p'@TJ?|;=G?pUA?G;H?`';D?T>p'`T*?'J?|==?pU?G'J? @;>?|}GGT?|<!?pU>G@P'&O>C? |6}3GT!?| TX=T$?4oU?GT?|<?pU?GP@'@GP'B'U'&> ? V;;;1U;U;V;;;1U;U;<U;V;;V; ;;1U;T;1U;V;V; ;;1U;T;1U;V;;;1U;U;U;V;;;1U;U;V;;V;;V;;V;;;1U;U;V;;V;;V;;V;;V;;;1U;T;1U;V;;;1U;U;V;;V;;;1U;T;1U;V;;;1U;U;V;;;1U;U;V;;V;;V;;;1U;U;V;;V;;V;;;1U;T;1U;V;;;1U;U;V;V;V;;;1U;V;;;1U;V;V;;;1U;V;V;;;1U;V;V;;;1U;V;V;;;1U;V;;;1U;V;V;;;1U;V;;;1U;V;V;;;1U;V;V<V$<V5<V<<VE<;@<1UD<U<U<UR<V@<VO<;<VB<;=<U<UG<VI<;D<1UH<UZ<VH<;C<Ue<US<VG<VP<B<VQ<VZ<L<V_<Vf<Z<Vo<Vz<V<V<;<1U<V<;<1U<V<;<1U<V<;<1U<V<V<;<1U<V<;<1U<U<V<V<<V<V<V<V<V<V<V<;<1U<V<'scripts' read-rfc822'filename'scripts/read-rfc822.scm'imports'ice-9'regex'rdelim'exports'read-rfc822-silently' autoloads'srfi'srfi-13' string-join' declarative?'guile'define-module*'set-current-module'%include-in-guild-list'%summary'Validate an RFC822-style file.' from-line-rx'^From 'header-name-rx'^([^:]+):[ ]*'header-cont-rx'^[ ]+'option' drain-message' parse-message'display-rfc822'main' make-regexp' read-line'reverse' ' string-null?'wrong-type-arg'cdr'6Wrong type argument in position 1 (expecting pair): ~S' out-of-range' vector-ref'Argument 2 out of range: ~S'8Wrong type argument in position 1 (expecting vector): ~S'car' regexp-exec' substring'match:substring'from' body-lines'headers'body' 'suffix' misc-error'bad component: ~S'From ~A 'for-each' ~A'format'~A: ~A ' OPEN_READ' open-file    L $L't+0/`48 ;X > A< Dl H L O Rp S T UV@WX**** * ****(`7`7`7`7H `7(!      E E  HHh 6  8t    XptEd  @ hppH  *(!(!Y<""pE MU!k z#h h 8B#H  D X  Xxx`" `a r 8 k8 p h p }      , , L L `  `b ${ $    7 @  M  \  k r      $,4 <(D0L8T@\H`PhXXXX 8080@8 "**"$,0      04D0`d tt @$,0$,0                          ",(80<8LXh l@pHxP| |X```x`x` jjjkp```x`hpX`hppxxxxxhhh`XhX`XhpX`p 0Xxp X X ` ` h ` ` ` j j j k     ` X $,0$,0$,0   $4DPTh|(08       (,<(D0L l( (8$,0  48@ \ d h   08LT\dhp 3  8@ `-H8D8RRL` 8rX 8 8 0  4H8 h%.. .. Guile 3.0.9make-regexp@guiledrain-messageread-line@ice-9/rdelimreverse@guileparse-messageregexp-exec@guilesubstring@guilematch:substring@ice-9/regexread-rfc822-silentlydisplay-rfc822format@guileread-rfc822>R scripts/read-rfc822.scmice-9/boot-9.scmice-9/regex.scm ;,a,,,b,,,b,,,b,$,b,a JJ,%J,,h%J,,h%J,,h[Jh 7JI;(Jqh ~O{h"w,+w 5,#w w;b,#w w;5w; - ,! J,Iyw&'^l,>;t@,^w:; x,K,:,,F,%Y)m;(,'x$x#;7x6,&'-$ x,.\-,'&:)w ,,'YJ,,%w;x;)t;(,'x$x#;76,&'-$ x,.\-,'&:)w ,,'YJ ,w4,hM(<?D,',w }JK= ,h2;5+,*,k ,f >,,h, )<%,2w%;01Z