GOOF----LE-8-2.0J ]H 4 h�* ] g guile� � g define-module*� � � g srfi� g srfi-27� � g filenameS�
f srfi/srfi-27.scm� g importsS� g srfi-9�
�
� � g exportsS� g random-integer� g random-real� g default-random-source� g make-random-source� g random-source?� g random-source-state-ref� g random-source-state-set!� g random-source-randomize!� g random-source-pseudo-randomize!� g random-source-make-integers� g random-source-make-reals� � g set-current-module� � � g cond-expand-provide� !g current-module� " � #g :random-source� $g %%make-random-source-procedure� %g make-syntax-transformer� &% � '% � (g %make-random-source� )g macro� *g $sc-dispatch� +* � ,* � -g _� .g any� /-. � 0g
syntax-object� 1g lambda� 2g m-46961e50f6-4� 3g top� 423 � 5g ribcage� 6g t-46961e50f6-3� 76 � 84 � 9f l-46961e50f6-9� :9 � ;578: � <5 � =g x� >= � ?f l-46961e50f6-6� @? � A5>8@ � Bg shift� Cg proc-name� Dg args� ECD � F3 � GFF � Hf l-1e8ba8b5a-2ba� If l-1e8ba8b5a-2bb� JHI � K5EGJ � Lg key� Mg value� Ng name� Og formals� Pg body� QLMNOP � RFFFFF � Sf l-1e8ba8b5a-2ad� Tf l-1e8ba8b5a-2ae� Uf l-1e8ba8b5a-2af� Vf l-1e8ba8b5a-2b0� Wf l-1e8ba8b5a-2b1� XSTUVW � Y5QRX � Zg make-procedure-name� [Z � \F � ]f l-1e8ba8b5a-29d� ^] � _5[\^ � `F � af l-1e8ba8b5a-29c� ba � c5>`b � d4;<AB<<<<KY_c
� eg hygiene� fe � g01df � hg state� iF;<A � je � k0hij � lk � mg make-struct� ng m-46961e50f6-1� on3 � pg t-1e8ba8b5a-38d� qg t-1e8ba8b5a-38c� rg t-1e8ba8b5a-38b� spqr � tg m-1e8ba8b5a-38e� ut3 � vuuu � wf l-1e8ba8b5a-392� xf l-1e8ba8b5a-393� yf l-1e8ba8b5a-394� zwxy � {5svz � |g ctor-args� }| � ~f l-1e8ba8b5a-37a� ~ � �5}` � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �5�G� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �FFFF � �f l-1e8ba8b5a-36b� �f l-1e8ba8b5a-36c� �f l-1e8ba8b5a-36d� �f l-1e8ba8b5a-36e� ����� � �5��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �FFFFFFFF � �f l-1e8ba8b5a-343� �f l-1e8ba8b5a-341� �f l-1e8ba8b5a-33f� �f l-1e8ba8b5a-33d� �f l-1e8ba8b5a-33b� �f l-1e8ba8b5a-339� �f l-1e8ba8b5a-337� �f l-1e8ba8b5a-335� ��������� � �5��� � �f l-1e8ba8b5a-334� �� � �5>`� � �o;<AB<{<<<��<��� � �0m�f � �0#ij � �0
�f � ����k � �gl� � �g each-any� �-��� �g syntax-violation� �
� � �
� � �f Wrong number of arguments� �g identifier?� �
� � �
� � �F<A � �0$�j � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �
� � �
� � �g pw� �g default-record-printer� �
� � �
� � �h � �g set-struct-vtable-name!� �
� � �
� � �g vtable-offset-user� �
� � �
� � �g %random-source?-procedure� �g m-46961e50f6-11� ��3 � �g t-46961e50f6-10� �� � �� � �f l-46961e50f6-16� �� � �5��� � �f l-46961e50f6-13� �� � �5>�� � ���<�B<<<<KY_c
� �01�f � �g obj� �g t-1e8ba8b5a-47e� �g t-1e8ba8b5a-478� �g t-1e8ba8b5a-479� �g t-1e8ba8b5a-47a� �g t-1e8ba8b5a-47d� �g t-1e8ba8b5a-47c� �g t-1e8ba8b5a-47b� �������� � �g m-1e8ba8b5a-47f� ��3 � �������� � �f l-1e8ba8b5a-483� �f l-1e8ba8b5a-484� �f l-1e8ba8b5a-485� �f l-1e8ba8b5a-486� �f l-1e8ba8b5a-487� �f l-1e8ba8b5a-488� �f l-1e8ba8b5a-489� �������� � �5��� � �g copier-id� �� � �f l-1e8ba8b5a-476� �� � �5�`� � �g ctor-name� �� � �f l-1e8ba8b5a-46e� �� � �5�`� � �� � �f l-1e8ba8b5a-46c� �� � �5�`� � �g layout� �� � f l-1e8ba8b5a-46a� �5�` �g
immutable?� �f l-1e8ba8b5a-468� �5` �g field-count� �
f l-1e8ba8b5a-466�
�5 ` �
g
getter-ids�
�f l-1e8ba8b5a-463� �5` �g field-ids� �f l-1e8ba8b5a-460� �5` �g predicate-name�g
field-spec���� �FFFFFF �f l-1e8ba8b5a-453�f l-1e8ba8b5a-454�f l-1e8ba8b5a-455�f l-1e8ba8b5a-456�f l-1e8ba8b5a-457� f l-1e8ba8b5a-458�! �"5! �#o�<�B<�<<<<�<�<�<<<<<"�� �$0�#f �%$ �&g and�'0&#f �(g struct?�)0(#f �*)$ �+g eq?�,0+#f �-g
struct-vtable�.0-#f �/.$ �0F�<� �10#0j �2,/1 �3'*2 �4�%3 �5F<� �60�5j �7g throw-bad-struct�8
7 �9
7 �:g random-source-state�;g %random-source-state-procedure�<g free-id�=g
%%on-error�>g m-46961e50f6-1d�?>3 �@? �Af l-46961e50f6-1f�BA �C5>@B �D?<CB<<<<KY_c �E0=Df �F<E �GF. �Hg %%type�Ig t-1e8ba8b5a-3a5�Jg t-1e8ba8b5a-3a6�Kg t-1e8ba8b5a-3a7�Lg t-1e8ba8b5a-3a8�Mg t-1e8ba8b5a-3a9�Ng t-1e8ba8b5a-3aa�Og t-1e8ba8b5a-3ab�PIJKLMNO �Qg m-1e8ba8b5a-3ac�RQ3 �SRRRRRRR �Tf l-1e8ba8b5a-3b0�Uf l-1e8ba8b5a-3b1�Vf l-1e8ba8b5a-3b2�Wf l-1e8ba8b5a-3b3�Xf l-1e8ba8b5a-3b4�Yf l-1e8ba8b5a-3b5�Zf l-1e8ba8b5a-3b6�[TUVWXYZ �\5PS[ �]g getter�^g index�_]^ �`f l-1e8ba8b5a-3a3�af l-1e8ba8b5a-3a4�b`a �c5_Gb �d�
� �eFFF �ff l-1e8ba8b5a-39e�gf l-1e8ba8b5a-39f�hf l-1e8ba8b5a-3a0�ifgh �j5dei �ko<CB<\<<<c<j�� �l0Hkf �m<l �n-Gm. �og ck�pg err�qg s�rpq �s?? �tf l-46961e50f6-22�uf l-46961e50f6-23�vtu �w5rsv �x?w<CB<<<<KY_c
�y0oxf �zg quote�{0zxf �|Fw<C �}0#|j �~{} �~ ��g %%index��0�kf ��<� ��-G�. ��f l-46961e50f6-27��f l-46961e50f6-28���� ��5rs� ��?�<CB<<<<KY_c
��0o�f ��0z�f ���<C ��0
�j ���� ��� ��g %%copier��0�kf ��<� ��-G�. ��f l-46961e50f6-2c��f l-46961e50f6-2d���� ��5rs� ��?�<CB<<<<KY_c
��0o�f ��0z�f ��g %%:random-source-set-fields��F�<C ��0��j ���� ��� ��g t-46961e50f6-1c��� ��f l-46961e50f6-31��� ��5�@� ��?�<CB<<<<KY_c
��01�f ��o�<CB<\<<<c<j�� ��0q�f ��� ��g if��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 ��g each��.. ���� ��.����.��.��g %%set-fields��g dummy��g check?��g expr����q]� ��g m-46961e50f6-38���3 ���oooo ��f l-46961e50f6-3d��f l-46961e50f6-3e��f l-46961e50f6-3f��f l-46961e50f6-40��f l-46961e50f6-41������� ��5��� ��� ��f l-46961e50f6-3a��� ��5>�� ��g t-1e8ba8b5a-3c4��g t-1e8ba8b5a-3c6��g t-1e8ba8b5a-3c5����� ��g m-1e8ba8b5a-3c7���3 ����� ��f l-1e8ba8b5a-3cb��f l-1e8ba8b5a-3cc��f l-1e8ba8b5a-3cd����� ��5��� ��f l-1e8ba8b5a-3c1��f l-1e8ba8b5a-3c2��f l-1e8ba8b5a-3c3����� ��5de� ��o�<�B<�<<<���
��0��f ��F�<� ��0#�j ��0:�j ��� ��g map��� ��� ��g list��g set-random-source-state!��g #%set-random-source-state!-procedure��-.. ��g m-46961e50f6-4c���3 ��g t-46961e50f6-4a��g t-46961e50f6-4b���� ���� ��f l-46961e50f6-51��f l-46961e50f6-52���� ��5��� � � �f l-46961e50f6-4e� �5> ���<B<<<<KY_c
�01f �g t-1e8ba8b5a-3e6�g t-1e8ba8b5a-3e7� � g m-1e8ba8b5a-3e8�
3 �
�f l-1e8ba8b5a-3ec�
f l-1e8ba8b5a-3ed�
�5 �g setter�N] �f l-1e8ba8b5a-3e0�f l-1e8ba8b5a-3e1�f l-1e8ba8b5a-3e2� �5e �^ �f l-1e8ba8b5a-3d7�f l-1e8ba8b5a-3d8� �5G �g field-specs�� �f l-1e8ba8b5a-3d3�f l-1e8ba8b5a-3d4� �!5G �"o�<B<<<!�� �#0q"f �$g val�%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 �<g seed->random-state�=g random-state->datum�>g datum->random-state�?g gettimeofday�@e 1000000.0�Ag i+j->seed�Bg spread�Cg random�Dg random:uniform�Eg real?�Fg error�Gf !unit must be real between 0 and 1�C 5 h� ]4
5 4 > "