GOOF----LE-8-2.0J]H4hä*] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsrfi¤ gsrfi-27¤ ¤ gfilenameS¤ fsrfi/srfi-27.scm¤ gimportsS¤ gsrfi-9¤  ¤  ¤ ¤ gexportsS¤ grandom-integer¤ g random-real¤ gdefault-random-source¤ gmake-random-source¤ grandom-source?¤ grandom-source-state-ref¤ grandom-source-state-set!¤ grandom-source-randomize!¤ grandom-source-pseudo-randomize!¤ grandom-source-make-integers¤ grandom-source-make-reals¤  ¤ gset-current-module¤ ¤ ¤ gcond-expand-provide¤ !gcurrent-module¤ "¤ #g:random-source¤ $g%%make-random-source-procedure¤ %gmake-syntax-transformer¤ &%¤ '%¤ (g%make-random-source¤ )gmacro¤ *g $sc-dispatch¤ +*¤ ,*¤ -g_¤ .gany¤ /-.¤ 0g syntax-object¤ 1glambda¤ 2gm-46961e50f6-4¤ 3gtop¤ 423¤ 5gribcage¤ 6gt-46961e50f6-3¤ 76¤ 84¤ 9fl-46961e50f6-9¤ :9¤ ;578:¤ <5¤ =gx¤ >=¤ ?fl-46961e50f6-6¤ @?¤ A5>8@¤ Bgshift¤ Cg proc-name¤ Dgargs¤ ECD¤ F3¤ GFF¤ Hfl-1e8ba8b5a-2ba¤ Ifl-1e8ba8b5a-2bb¤ JHI¤ K5EGJ¤ Lgkey¤ Mgvalue¤ Ngname¤ Ogformals¤ Pgbody¤ QLMNOP¤ RFFFFF¤ Sfl-1e8ba8b5a-2ad¤ Tfl-1e8ba8b5a-2ae¤ Ufl-1e8ba8b5a-2af¤ Vfl-1e8ba8b5a-2b0¤ Wfl-1e8ba8b5a-2b1¤ XSTUVW¤ Y5QRX¤ Zgmake-procedure-name¤ [Z¤ \F¤ ]fl-1e8ba8b5a-29d¤ ^]¤ _5[\^¤ `F¤ afl-1e8ba8b5a-29c¤ ba¤ c5>`b¤ d4;<AB<<<<KY_c ¤ eghygiene¤ fe ¤ g01df¤ hgstate¤ iF;<A¤ je¤ k0hij¤ lk¤ mg make-struct¤ ngm-46961e50f6-1¤ on3¤ pgt-1e8ba8b5a-38d¤ qgt-1e8ba8b5a-38c¤ rgt-1e8ba8b5a-38b¤ spqr¤ tgm-1e8ba8b5a-38e¤ ut3¤ vuuu¤ wfl-1e8ba8b5a-392¤ xfl-1e8ba8b5a-393¤ yfl-1e8ba8b5a-394¤ zwxy¤ {5svz¤ |g ctor-args¤ }|¤ ~fl-1e8ba8b5a-37a¤ ~¤ €5}`¤ gctor¤ ‚gfield¤ ƒ‚¤ „fl-1e8ba8b5a-376¤ …fl-1e8ba8b5a-377¤ †„…¤ ‡5ƒG†¤ ˆgform¤ ‰g type-name¤ Šgconstructor-spec¤ ‹g field-names¤ Œˆ‰Š‹¤ FFFF¤ Žfl-1e8ba8b5a-36b¤ fl-1e8ba8b5a-36c¤ fl-1e8ba8b5a-36d¤ ‘fl-1e8ba8b5a-36e¤ ’Ž‘¤ “5Œ’¤ ”g record-layout¤ •gfunctional-setters¤ –gsetters¤ —gcopier¤ ˜ggetters¤ ™g constructor¤ šggetter-identifiers¤ ›gfield-identifiers¤ œ”•–—˜™š›¤ FFFFFFFF¤ žfl-1e8ba8b5a-343¤ Ÿfl-1e8ba8b5a-341¤  fl-1e8ba8b5a-33f¤ ¡fl-1e8ba8b5a-33d¤ ¢fl-1e8ba8b5a-33b¤ £fl-1e8ba8b5a-339¤ ¤fl-1e8ba8b5a-337¤ ¥fl-1e8ba8b5a-335¤ ¦žŸ ¡¢£¤¥¤ §5œ¦¤ ¨fl-1e8ba8b5a-334¤ ©¨¤ ª5>`©¤ «o;<AB<{<<<€‡<“§ª¤ ¬0m«f¤ ­0#ij¤ ®0 «f¤ ¯¬­®k¤ °gl¯¤ ±geach-any¤ ²-±Œ¤ ³gsyntax-violation¤ ´ ³¤ µ ³¤ ¶fWrong number of arguments¤ ·g identifier?¤ ¸ ·¤ ¹ ·¤ ºF<A¤ »0$ºj¤ ¼³¤ ½³¤ ¾f-source expression failed to match any pattern¤ ¿grecord-type-vtable¤ À ¿¤ Á ¿¤ Âgpw¤ Ãgdefault-record-printer¤ Ä Ã¤ Šä Æh¤ Çgset-struct-vtable-name!¤ È Ç¤ É Ç¤ Êgvtable-offset-user¤ Ë Ê¤ Ì Ê¤ Íg%random-source?-procedure¤ Îgm-46961e50f6-11¤ ÏÎ3¤ Ðgt-46961e50f6-10¤ ÑФ ÒϤ Ófl-46961e50f6-16¤ ÔÓ¤ Õ5ÑÒÔ¤ Öfl-46961e50f6-13¤ ×Ö¤ Ø5>Òפ ÙÏÕ<ØB<<<<KY_c ¤ Ú01Ùf¤ Ûgobj¤ Ügt-1e8ba8b5a-47e¤ Ýgt-1e8ba8b5a-478¤ Þgt-1e8ba8b5a-479¤ ßgt-1e8ba8b5a-47a¤ àgt-1e8ba8b5a-47d¤ ágt-1e8ba8b5a-47c¤ âgt-1e8ba8b5a-47b¤ ãÜÝÞßàá⤠ägm-1e8ba8b5a-47f¤ åä3¤ æååååååå¤ çfl-1e8ba8b5a-483¤ èfl-1e8ba8b5a-484¤ éfl-1e8ba8b5a-485¤ êfl-1e8ba8b5a-486¤ ëfl-1e8ba8b5a-487¤ ìfl-1e8ba8b5a-488¤ ífl-1e8ba8b5a-489¤ îçèéêëìí¤ ï5ãæî¤ ðg copier-id¤ ñð¤ òfl-1e8ba8b5a-476¤ óò¤ ô5ñ`ó¤ õg ctor-name¤ öõ¤ ÷fl-1e8ba8b5a-46e¤ ø÷¤ ù5ö`ø¤ ú‹¤ ûfl-1e8ba8b5a-46c¤ üû¤ ý5ú`ü¤ þglayout¤ ÿþ¤ fl-1e8ba8b5a-46a¤ ¤ 5ÿ`¤ g immutable?¤ ¤ fl-1e8ba8b5a-468¤ ¤ 5`¤ g field-count¤  ¤  fl-1e8ba8b5a-466¤   ¤  5 ` ¤  g getter-ids¤  ¤ fl-1e8ba8b5a-463¤ ¤ 5`¤ g field-ids¤ ¤ fl-1e8ba8b5a-460¤ ¤ 5`¤ gpredicate-name¤ g field-spec¤ ˆ‰Š¤ FFFFFF¤ fl-1e8ba8b5a-453¤ fl-1e8ba8b5a-454¤ fl-1e8ba8b5a-455¤ fl-1e8ba8b5a-456¤ fl-1e8ba8b5a-457¤  fl-1e8ba8b5a-458¤ ! ¤ "5!¤ #oÕ<ØB<ï<<<<ô<ù<ý<<< <<"§ª¤ $0Û#f¤ %$¤ &gand¤ '0&#f¤ (gstruct?¤ )0(#f¤ *)$¤ +geq?¤ ,0+#f¤ -g struct-vtable¤ .0-#f¤ /.$¤ 0FÕ<ؤ 10#0j¤ 2,/1¤ 3'*2¤ 4Ú%3¤ 5F<ؤ 60Í5j¤ 7gthrow-bad-struct¤ 8 7¤ 9 7¤ :grandom-source-state¤ ;g%random-source-state-procedure¤ gm-46961e50f6-1d¤ ?>3¤ @?¤ Afl-46961e50f6-1f¤ BA¤ C5>@B¤ D?<CB<<<<KY_c ¤ E0=Df¤ F<E¤ GF.¤ Hg%%type¤ Igt-1e8ba8b5a-3a5¤ Jgt-1e8ba8b5a-3a6¤ Kgt-1e8ba8b5a-3a7¤ Lgt-1e8ba8b5a-3a8¤ Mgt-1e8ba8b5a-3a9¤ Ngt-1e8ba8b5a-3aa¤ Ogt-1e8ba8b5a-3ab¤ PIJKLMNO¤ Qgm-1e8ba8b5a-3ac¤ RQ3¤ SRRRRRRR¤ Tfl-1e8ba8b5a-3b0¤ Ufl-1e8ba8b5a-3b1¤ Vfl-1e8ba8b5a-3b2¤ Wfl-1e8ba8b5a-3b3¤ Xfl-1e8ba8b5a-3b4¤ Yfl-1e8ba8b5a-3b5¤ Zfl-1e8ba8b5a-3b6¤ [TUVWXYZ¤ \5PS[¤ ]ggetter¤ ^gindex¤ _]^¤ `fl-1e8ba8b5a-3a3¤ afl-1e8ba8b5a-3a4¤ b`a¤ c5_Gb¤ d‰ ð¤ eFFF¤ ffl-1e8ba8b5a-39e¤ gfl-1e8ba8b5a-39f¤ hfl-1e8ba8b5a-3a0¤ ifgh¤ j5dei¤ ko<CB<\<<<c<j§ª¤ l0Hkf¤ m<l¤ n-Gm.¤ ogck¤ pgerr¤ qgs¤ rpq¤ s??¤ tfl-46961e50f6-22¤ ufl-46961e50f6-23¤ vtu¤ w5rsv¤ x?w<CB<<<<KY_c ¤ y0oxf¤ zgquote¤ {0zxf¤ |Fw<C¤ }0#|j¤ ~{}¤ ~¤ €g%%index¤ 0€kf¤ ‚<¤ ƒ-G‚.¤ „fl-46961e50f6-27¤ …fl-46961e50f6-28¤ †„…¤ ‡5rs†¤ ˆ?‡<CB<<<<KY_c ¤ ‰0oˆf¤ Š0zˆf¤ ‹‡<C¤ Œ0 ‹j¤ ŠŒ¤ Ž¤ g%%copier¤ 0kf¤ ‘<¤ ’-G‘.¤ “fl-46961e50f6-2c¤ ”fl-46961e50f6-2d¤ •“”¤ –5rs•¤ —?–<CB<<<<KY_c ¤ ˜0o—f¤ ™0z—f¤ šg%%:random-source-set-fields¤ ›F–<C¤ œ0š›j¤ ™œ¤ ž¤ Ÿgt-46961e50f6-1c¤  Ÿ¤ ¡fl-46961e50f6-31¤ ¢¡¤ £5 @¢¤ ¤?£<CB<<<<KY_c ¤ ¥01¤f¤ ¦o£<CB<\<<<c<j§ª¤ §0q¦f¤ ¨§¤ ©gif¤ ª0©¦f¤ «0+¦f¤ ¬0-¦f¤ ­¬§¤ ®F£<C¤ ¯0#®j¤ °«­¯¤ ±g struct-ref¤ ²0±¦f¤ ³£<C¤ ´0 ³j¤ µ²§´¤ ¶07¦f¤ ·0z¦f¤ ¸0:®j¤ ¹·¸¤ º¶§¹¤ »ª°µº¤ ¼¥¨»¤ ½F<C¤ ¾0;½j¤ ¿geach¤ À..¤ Á¿À¤ Â.ÁŒ¤ Ã.ÂŒ¤ Ä.ÃŒ¤ Åg %%set-fields¤ Ægdummy¤ Çgcheck?¤ Ègexpr¤ ÉÆÇq]Ȥ Êgm-46961e50f6-38¤ ËÊ3¤ ÌËoooo¤ Ífl-46961e50f6-3d¤ Îfl-46961e50f6-3e¤ Ïfl-46961e50f6-3f¤ Ðfl-46961e50f6-40¤ Ñfl-46961e50f6-41¤ ÒÍÎÏÐѤ Ó5ÉÌÒ¤ Ôˤ Õfl-46961e50f6-3a¤ ÖÕ¤ ×5>ÔÖ¤ Øgt-1e8ba8b5a-3c4¤ Ùgt-1e8ba8b5a-3c6¤ Úgt-1e8ba8b5a-3c5¤ ÛØÙÚ¤ Ügm-1e8ba8b5a-3c7¤ ÝÜ3¤ ÞÝÝݤ ßfl-1e8ba8b5a-3cb¤ àfl-1e8ba8b5a-3cc¤ áfl-1e8ba8b5a-3cd¤ âßàᤠã5ÛÞ⤠äfl-1e8ba8b5a-3c1¤ åfl-1e8ba8b5a-3c2¤ æfl-1e8ba8b5a-3c3¤ çäåæ¤ è5deç¤ éoÓ<×B<ã<<<觪 ¤ ê0Åéf¤ ëFÓ<פ ì0#ëj¤ í0:ëj¤ îí¤ ïgmap¤ ðï¤ ñï¤ òglist¤ ógset-random-source-state!¤ ôg#%set-random-source-state!-procedure¤ õ-..¤ ögm-46961e50f6-4c¤ ÷ö3¤ øgt-46961e50f6-4a¤ ùgt-46961e50f6-4b¤ úøù¤ û÷÷¤ üfl-46961e50f6-51¤ ýfl-46961e50f6-52¤ þüý¤ ÿ5úûþ¤ ÷¤ fl-46961e50f6-4e¤ ¤ 5>¤ ÷ÿ<B<<<<KY_c ¤ 01f¤ gt-1e8ba8b5a-3e6¤ gt-1e8ba8b5a-3e7¤ ¤  gm-1e8ba8b5a-3e8¤   3¤    ¤  fl-1e8ba8b5a-3ec¤  fl-1e8ba8b5a-3ed¤   ¤ 5 ¤ gsetter¤ N]¤ fl-1e8ba8b5a-3e0¤ fl-1e8ba8b5a-3e1¤ fl-1e8ba8b5a-3e2¤ ¤ 5e¤ ^¤ fl-1e8ba8b5a-3d7¤ fl-1e8ba8b5a-3d8¤ ¤ 5G¤ g field-specs¤ ‰¤ fl-1e8ba8b5a-3d3¤ fl-1e8ba8b5a-3d4¤  ¤ !5G ¤ "oÿ<B<<<!§ª¤ #0q"f¤ $gval¤ %0$"f¤ &#%¤ '0©"f¤ (0+"f¤ )0-"f¤ *)#¤ +Fÿ<¤ ,0#+j¤ -(*,¤ .g struct-set!¤ /0."f¤ 0ÿ<¤ 10 0j¤ 2/#1%¤ 307"f¤ 40z"f¤ 50ó+j¤ 645¤ 73#6¤ 8'-27¤ 9&8¤ :F<¤ ;0ô:j¤ random-state¤ =grandom-state->datum¤ >gdatum->random-state¤ ?g gettimeofday¤ @e 1000000.0¤ Ag i+j->seed¤ Bgspread¤ Cgrandom¤ Dgrandom:uniform¤ Egreal?¤ Fgerror¤ Gf!unit must be real between 0 and 1¤C5h°]4   54>"G4 i4!i5">"G#h]¨Cygstate  gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  gnameg%%make-random-source-procedureŒC$R4'(),/°h6]C.gt-46961e50f6-3    C²µ(¶hS]L6Kga  gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ  C-¹hC]L6;gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ   C»h]C   C½¾ hp„]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  n C5(RÁÂÅ#ƨ4É#>"G Ì–$iª#R#hz]¦$§‚CCrgobj  gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ   gnameg%random-source?-procedureŒCÍR4'),/4h7]C/gt-46961e50f6-10    C²µ¶hS]L6Kga  gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ  C-¹hC]L6;gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ   C6h]C   C½¾ hp„]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  n C5R#9:h}]§& ©C6ugs  gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ   gnameg%random-source-state-procedureŒC;R4':),nyh:]ŒŒC2gerr  gs    Cƒ‰Žh:]ŒŒC2gerr  gs    C’˜žh:]ŒŒC2gerr  gs    C/¼h7]C/gt-46961e50f6-1c    C²µ:¶hS]L6Kga  gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ  C-¹hC]L6;gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ   C¾h]C   C½¾h¸À]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66¸gx  ³gtmp ³gtmp  " ³gtmp  9 ³gtmp  P ³gtmp  g ³gtmp  ƒ ³gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  ³ C5:R4'š),Äêìîñòh v]45ŒŒŒŒŒCngdummy  gcheck?  gs   ggetter   gexpr      C½¾h(¾] 45$@6¶gx  "gtmp "gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgcheck?gsggettergexprg...C5šR#9óh “]§& ªC6‹gs  gval  gfilenamefsrfi/srfi-27.scmŒ ( ŒŒ   gnameg#%set-random-source-state!-procedureŒCôR4'ó),õ9hT]CLgt-46961e50f6-4a  gt-46961e50f6-4b    C²µó¶hS]L6Kga  gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ  C-¹hC]L6;gfilenamefsrfi/srfi-27.scmŒ  ( ŒŒ   C;h]C   C½¾ hp„]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scmŒ ( ŒŒ  n C5óR<#h…]4 5¨C}gstate  gfilenamefsrfi/srfi-27.scmŒ - ŒŒ  . ŒŒ  . ŒŒ   gnamegmake-random-sourceŒCR=#9:h †]§& ©" 456~gs  gfilenamefsrfi/srfi-27.scmŒ 0 ŒŒ  1 ŒŒ 1 ŒŒ  gnamegrandom-source-state-refŒCR>#9óh(«] 45§& ªC6£gs  #gstate  #gval  #gfilenamefsrfi/srfi-27.scmŒ 3 ŒŒ  4 ŒŒ 4 ŒŒ  # gnamegrandom-source-state-set!ŒCR?<@#9óh8é]454šŽ–5§& ªC6ágs  2gtime  2gval   2gfilenamefsrfi/srfi-27.scmŒ 6 ŒŒ  7 ŒŒ  7 ŒŒ 8 ŒŒ  9 'ŒŒ  9 2ŒŒ  9 $ŒŒ  9 7ŒŒ  9 !ŒŒ  8 ŒŒ  8 ŒŒ  2 gnamegrandom-source-randomize!ŒCR<A#9óh0Í] 4455§& ªC6Ågs  *gi  *gj   *gval   *gfilenamefsrfi/srfi-27.scmŒ ; ŒŒ  < ŒŒ  < 2ŒŒ  < ŒŒ  < ŒŒ  * gnamegrandom-source-pseudo-randomize!ŒCRBh—]4 5 Ÿ4 5¡Cgi  gj  gfilenamefsrfi/srfi-27.scmŒ > ŒŒ  ? ŒŒ ? ŒŒ  @ ŒŒ  ? ŒŒ   gnameg i+j->seedŒCARh@ÿ]") ‘$C  Ÿ¡ ÿŸ–"ÿÿ×  "ÿÿÉ÷gn  =gamount  =gresult   /gn   /gshift   /gfilenamefsrfi/srfi-27.scmŒ B ŒŒ  C ŒŒ D ŒŒ  D ŒŒ  G ŒŒ  G ŒŒ  F ŒŒ H ŒŒ % I ŒŒ / F ŒŒ / C ŒŒ  = gnamegspreadŒCBRC#9:h(c]L§&L ©" 4L56[gn  "gfilenamefsrfi/srfi-27.scmŒ L ŒŒ M ŒŒ " M ŒŒ  " Chz]OCrgs  gfilenamefsrfi/srfi-27.scmŒ K ŒŒ  gnamegrandom-source-make-integersŒCRD#9:h@›]"04L§&L ©" 4L55 ‘$"ÿÿÓC"ÿÿÌ“gx % 6gfilenamefsrfi/srfi-27.scmŒ R ŒŒ  S ŒŒ  T ŒŒ T "ŒŒ % T ŒŒ % T ŒŒ * U ŒŒ / U ŒŒ 3 V ŒŒ 6 S ŒŒ  : CEFGh`ï) 3OC] 45$ ’$ ’""$"4>"G6çgs gs  ]gunit  ]gt  4 Wgfilenamefsrfi/srfi-27.scmŒ P ŒŒ  Y ŒŒ  Y ŒŒ " Y ŒŒ 4 Y ŒŒ A Z ŒŒ E Z ŒŒ L Z ŒŒ ] [ ŒŒ    ] gnamegrandom-source-make-realsŒCR4i5R4ii5R4ii5RCÿgm  ,grtd ~ ¦gfilenamefsrfi/srfi-27.scmŒ   ŒŒ - & ŒŒ 2 & ŒŒ : & &ŒŒ ? & ŒŒ ì ( ŒŒ ° - ŒŒ q 0 ŒŒ f 3 ŒŒ ¬ 6 ŒŒ È ; ŒŒ ‹ > ŒŒ Û B ŒŒ  K ŒŒ ‚ O ŒŒ ƒ ] ŒŒ Œ ] ŒŒ  ^ ŒŒ š ^ ŒŒ › _ ŒŒ ¨ _ ŒŒ  ª C6