GOOF----LE-8-2.0V� ]� 4 hE� ] g guile� � g define-module*� � � g srfi� g srfi-41� � g filenameS�
f srfi/srfi-41.scm� g importsS� g srfi-1�
�
� g srfi-8� � � g srfi-9� � � g gnu� � � g srfi-26� � � g ice-9� g match� � � � g exportsS� !g stream-null� "g stream-cons� #g stream?� $g stream-null?� %g stream-pair?� &g
stream-car� 'g
stream-cdr� (g
stream-lambda� )g
define-stream� *g list->stream� +g port->stream� ,g stream� -g stream->list� .g
stream-append� /g
stream-concat� 0g stream-constant� 1g stream-drop� 2g stream-drop-while� 3g
stream-filter� 4g stream-fold� 5g stream-for-each� 6g stream-from� 7g stream-iterate� 8g
stream-length� 9g
stream-let� :g
stream-map� ;g stream-match� <g stream-of� =g stream-range� >g
stream-ref� ?g stream-reverse� @g stream-scan� Ag stream-take� Bg stream-take-while� Cg
stream-unfold� Dg stream-unfolds� Eg
stream-zip� F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE %� Gg set-current-module� HG � IG � Jg cond-expand-provide� Kg current-module� L � Mg make-syntax-transformer� NM � OM � Pg must� Qg macro� Rg $sc-dispatch� SR � TR � Ug any� Vg each-any� WUV�� XUW�� YUX�� ZUY�� [UZ�� \g
syntax-object� ]g let� ^g top� _^ � `g ribcage� ag dummy� bg pred� cg obj� dg func� eg msg� fg args� gabcdef � hg m-46961e513a-1� ih^ � ji_____ � kf l-46961e513a-6� lf l-46961e513a-7� mf l-46961e513a-8� nf l-46961e513a-9� of l-46961e513a-a� pf l-46961e513a-b� qklmnop � r`gjq � s` � tg x� ut � vi � wf l-46961e513a-3� xw � y`uvx � z_rsy � {g hygiene� |{ � }\]z| � ~g item� \~z| � �g unless� �\�z| � � � �g throw� �\�z| � �g quote� �\�z| � �g wrong-type-arg� �\�z| � ��� � �g list� �\�z| � �� � �� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g must-not� �g m-46961e513a-14� ��^ � ��_____ � �f l-46961e513a-19� �f l-46961e513a-1a� �f l-46961e513a-1b� �f l-46961e513a-1c� �f l-46961e513a-1d� �f l-46961e513a-1e� ������� � �`g�� � �� � �f l-46961e513a-16� �� � �`u�� � �_�s� � �\]�| � �\~�| � �g when� �\��| � �� � �\��| � �\��| � �\��| � ��� � �\��| � ��� � �� � �g
must-every� �g objs� �ab�def � �g m-46961e513a-27� ��^ � ��_____ � �f l-46961e513a-2c� �f l-46961e513a-2d� �f l-46961e513a-2e� �f l-46961e513a-2f� �f l-46961e513a-30� �f l-46961e513a-31� ������� � �`��� � �� � �f l-46961e513a-29� �� � �`u�� � �_�s� � �\]�| � �g flunk� �\��| � �g remove� �\��| � �\��| � �g null?� �\��| � ��� � �\��| � �\��| � �\��| � ��� � �\��| � �� � �g first-value� �UU � �g receive� �g expr� �a� � �g m-46961e513a-3a� ��^ � ��_ � �f l-46961e513a-3f� �f l-46961e513a-40� ��� � �`��� � �� � �f l-46961e513a-3c� �� � �`u�� � �_�s� � �\��| � �g first� �\��| � �g _� �\��| � ��挤 �� � �g second-value� �g m-46961e513a-44� ��^ � ��_ � �f l-46961e513a-49� �f l-46961e513a-4a� ��� � �`��� � �� � �f l-46961e513a-46� �� � �`u�� � �_�s� � �\��| � �\��| � �g second� �\��| � �\��| � ����� ����� �� � �g third-value� �g m-46961e513a-4e� �^ � _ �f l-46961e513a-53�f l-46961e513a-54� �`� � �f l-46961e513a-50� � `u �
_s �\�
| �\�
| �
\�
| �g third�\
| �\�
| ���
���� �g define-syntax*�UU��V��U��g
define-syntax�g name�g body�af �g m-46961e513a-57�^ �___ � f l-46961e513a-5c�!f l-46961e513a-5d�"f l-46961e513a-5e�#f l-46961e513a-5f�$ !"# �%`$ �& �'f l-46961e513a-59�(' �)`u&( �*_%s) �+\*| �,g lambda*�-\,*| �.UUU �/g syntax�0a/ �1__ �2f l-46961e513a-66�3f l-46961e513a-67�4f l-46961e513a-68�5234 �6`015 �7_6s) �8\7| �9g stream-promise�:g %make-stream-promise-procedure�;g make-stream-promise�<�U �=g lambda�>g m-46961e513a-70�?>^ �@g t-46961e513a-6f�A@ �B? �Cf l-46961e513a-75�DC �E`ABD �Ff l-46961e513a-72�GF �H`uBG �Ig shift�Jg proc-name�KJf �L__ �Mf l-1e8ba8b5a-2ba�Nf l-1e8ba8b5a-2bb�OMN �P`KLO �Qg key�Rg value�Sg formals�TQRS �U_____ �Vf l-1e8ba8b5a-2ad�Wf l-1e8ba8b5a-2ae�Xf l-1e8ba8b5a-2af�Yf l-1e8ba8b5a-2b0�Zf l-1e8ba8b5a-2b1�[VWXYZ �\`TU[ �]g make-procedure-name�^] �__ �`f l-1e8ba8b5a-29d�a` �b`^_a �c_ �df l-1e8ba8b5a-29c�ed �f`uce �g?EsHIssssP\bf
�h{ �i\=gh �jg val�k_EsH �l\jk| �ml �ng make-struct�og m-46961e513a-6d�po^ �qg t-1e8ba8b5a-38d�rg t-1e8ba8b5a-38c�sg t-1e8ba8b5a-38b�tqrs �ug m-1e8ba8b5a-38e�vu^ �wvvv �xf l-1e8ba8b5a-392�yf l-1e8ba8b5a-393�zf l-1e8ba8b5a-394�{xyz �|`tw{ �}g ctor-args�~} �f l-1e8ba8b5a-37a�� ��`~c� ��g ctor��g field���� ��f l-1e8ba8b5a-376��f l-1e8ba8b5a-377���� ��`�L� ��g form��g type-name��g constructor-spec��g field-names������ ��____ ��f l-1e8ba8b5a-36b��f l-1e8ba8b5a-36c��f l-1e8ba8b5a-36d��f l-1e8ba8b5a-36e������ ��`��� ��g
record-layout��g functional-setters��g setters��g copier��g getters��g constructor��g getter-identifiers��g field-identifiers���������� ��________ ��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���������� ��`��� ��f l-1e8ba8b5a-334��� ��`uc� ��pEsHIs|sss��s��� ��\n�h ��\9k| ��\
�h �����l ��im� ���V���� ��� ��f Wrong number of arguments��g identifier?��� ��� ��_sH ��\:�| ��g record-type-vtable��� ��� ��g pw��g default-record-printer��� ��� ��j ��g set-struct-vtable-name!��� ��� ��g vtable-offset-user��� ��� ��g %stream-promise?-procedure��g stream-promise?��g m-46961e513a-7d���^ ��g t-46961e513a-7c��� ��� ��f l-46961e513a-82��� ��`��� ��f l-46961e513a-7f��� ��`u�� ����s�IssssP\bf
��\=�h ��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���^ ��������� ��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��������� ��`��� ��g copier-id��� ��f l-1e8ba8b5a-476��� ��`�c� ��g ctor-name��� ��f l-1e8ba8b5a-46e��� ��`�c� ��� ��f l-1e8ba8b5a-46c��� ��`�c� ��g layout��� ��f l-1e8ba8b5a-46a��� ��`�c� ��g
immutable?� � �f l-1e8ba8b5a-468� �` c �g field-count� �f l-1e8ba8b5a-466� �`c � g
getter-ids�
�f l-1e8ba8b5a-463� �
`
c �g field-ids� �f l-1e8ba8b5a-460� �`c �g predicate-name�g
field-spec����� �______ �f l-1e8ba8b5a-453�f l-1e8ba8b5a-454�f l-1e8ba8b5a-455�f l-1e8ba8b5a-456�f l-1e8ba8b5a-457�f l-1e8ba8b5a-458� �` �p�s�Is�ssss�s�s�s�sss
s�� � \ch �! �"g and�#\"h �$g struct?�%\$h �&% �'g eq?�(\'h �)g
struct-vtable�*\)h �+* �,_�s� �-\9,| �.(+- �/#&. �0�!/ �1_s� �2\�1| �3g throw-bad-struct�43 �53 �6g stream-promise-val�7g %stream-promise-val-procedure�8g free-id�9g
%%on-error�:g m-46961e513a-89�;:^ �<; �=f l-46961e513a-8b�>= �?`u<> �@;s?IssssP\bf �A\9@h �B8A �CBU �Dg %%type�Eg t-1e8ba8b5a-3a5�Fg t-1e8ba8b5a-3a6�Gg t-1e8ba8b5a-3a7�Hg t-1e8ba8b5a-3a8�Ig t-1e8ba8b5a-3a9�Jg t-1e8ba8b5a-3aa�Kg t-1e8ba8b5a-3ab�LEFGHIJK �Mg m-1e8ba8b5a-3ac�NM^ �ONNNNNNN �Pf l-1e8ba8b5a-3b0�Qf l-1e8ba8b5a-3b1�Rf l-1e8ba8b5a-3b2�Sf l-1e8ba8b5a-3b3�Tf l-1e8ba8b5a-3b4�Uf l-1e8ba8b5a-3b5�Vf l-1e8ba8b5a-3b6�WPQRSTUV �X`LOW �Yg getter�Zg index�[YZ �\f l-1e8ba8b5a-3a3�]f l-1e8ba8b5a-3a4�^\] �_`[L^ �`� � �a___ �bf l-1e8ba8b5a-39e�cf l-1e8ba8b5a-39f�df l-1e8ba8b5a-3a0�ebcd �f``ae �gps?IsXsss_sf�� �h\Dgh �i8h �j�CiU �kg ck�lg err�mg s�nlm �o;; �pf l-46961e513a-8e�qf l-46961e513a-8f�rpq �s`nor �t;ss?IssssP\bf
�u\kth �v\�th �w_ss? �x\9w| �yvx �zy �{g %%index�|\{gh �}8| �~�C}U �f l-46961e513a-93��f l-46961e513a-94��� ��`no� ��;�s?IssssP\bf
��\k�h ��\��h ���s? ��\
�| ���� ��� ��g %%copier��\�gh ��8� ���C�U ��f l-46961e513a-98��f l-46961e513a-99���� ��`no� ��;�s?IssssP\bf
��\k�h ��\��h ��g %%stream-promise-set-fields��_�s? ��\��| ���� ��� ��g t-46961e513a-88��� ��f l-46961e513a-9d��� ��`�<� ��;�s?IssssP\bf
��\=�h ��p�s?IsXsss_sf�� ��\m�h ��� ��g if��\��h ��\'�h ��\)�h ���� ��_�s? ��\9�| ����� ��g
struct-ref��\��h ���s? ��\
�| ����� ��\3�h ��\��h ��\6�| ���� ����� ������ ����� ��_s? ��\7�| ��g each���� ��U����U����U����g %%set-fields��g check?��a�mY� ��g m-46961e513a-a4���^ ���pppp ��f l-46961e513a-a9��f l-46961e513a-aa��f l-46961e513a-ab��f l-46961e513a-ac��f l-46961e513a-ad������� ��`��� ��� ��f l-46961e513a-a6��� ��`u�� ��g t-1e8ba8b5a-3c4��g t-1e8ba8b5a-3c6��g t-1e8ba8b5a-3c5����� ��g m-1e8ba8b5a-3c7���^ ����� ��f l-1e8ba8b5a-3cb��f l-1e8ba8b5a-3cc��f l-1e8ba8b5a-3cd����� ��`��� ��f l-1e8ba8b5a-3c1��f l-1e8ba8b5a-3c2��f l-1e8ba8b5a-3c3����� ��``a� ��p�s�Is�sss���
��\��h ��_�s� ��\9�| ��\6�| ��� ��g map��� ��� ��g stream-promise-val-set!��g "%stream-promise-val-set!-procedure���UU ��g m-46961e513a-b8���^ ��g t-46961e513a-b6��g t-46961e513a-b7���� ���� ��f l-46961e513a-bd��f l-46961e513a-be���� ��`��� ��� ��f l-46961e513a-ba��� ��`u�� ����s�IssssP\bf
��\=�h ��g t-1e8ba8b5a-3e6��g t-1e8ba8b5a-3e7���� � g m-1e8ba8b5a-3e8� ^ � �f l-1e8ba8b5a-3ec�f l-1e8ba8b5a-3ed� �`� �g setter�Y � f l-1e8ba8b5a-3e0�
f l-1e8ba8b5a-3e1�f l-1e8ba8b5a-3e2�
�
`a �Z �f l-1e8ba8b5a-3d7�f l-1e8ba8b5a-3d8� �`L �g field-specs�� �f l-1e8ba8b5a-3d3�f l-1e8ba8b5a-3d4� �`L �p�s�Is
ss�� �\mh �\jh � �\�h �\'h �\)h � �!_�s� �"\9!| �# " �$g struct-set!�%\$h �&�s� �'\
&| �(%' �)\3h �*\�h �+\�!| �,*+ �-), �.#(- �/�. �0_s� �1\�0| �2g stream-value�3g %make-stream-value-procedure�4g make-stream-value�5g m-46961e513a-d9�65^ �7g t-46961e513a-d7�8g t-46961e513a-d8�978 �:66 �;f l-46961e513a-de�<f l-46961e513a-df�=;< �>`9:= �?6 �@f l-46961e513a-db�A@ �B`u?A �C6>sBIssssP\bf
�D\=Ch �Eg tag�F_>sB �G\EF| �Hg proc�I\HF| �JGI �Kg m-46961e513a-d5�LK^ �ML>sBIs|sss��s��� �N\nMh �O\2F| �P\
Mh �QNOPGI �RDJQ �S_sB �T\3S| �Ug pwpw�VEH �Wg %stream-value?-procedure�Xg
stream-value?�Yg m-46961e513a-e8�ZY^ �[g t-46961e513a-e7�\[ �]Z �^f l-46961e513a-ed�_^ �``\]_ �af l-46961e513a-ea�ba �c`u]b �dZ`scIssssP\bf
�e\=dh �fL`scIs�ssss�s�s�s�sss
s�� �g\cfh �hg �i\"fh �j\$fh �kjg �l\'fh �m\)fh �nmg �o_`sc �p\2o| �qlnp �rikq �sehr �t_sc �u\Wt| �vg stream-value-tag�wg %stream-value-tag-procedure�xg m-46961e513a-f4�yx^ �zy �{f l-46961e513a-f6�|{ �}`uz| �~ys}IssssP\bf �\9~h ��8 ���U ��Ls}IsXsss_sf�� ��\D�h ��8� �����U ��yy ��f l-46961e513a-f9��f l-46961e513a-fa���� ��`n�� ��y�s}IssssP\bf
��\k�h ��\��h ��_�s} ��\2�| ���� ��� ��\{�h ��8� �����U ��f l-46961e513a-fe��f l-46961e513a-ff���� ��`n�� ��y�s}IssssP\bf
��\k�h ��\��h ���s} ��\
�| ���� ��� ��\��h ��8� �����U ��f l-46961e513a-103��f l-46961e513a-104���� ��`n�� ��y�s}IssssP\bf
��\k�h ��\��h ��g %%stream-value-set-fields��_�s} ��\��| ���� ��� ��g t-46961e513a-f3��� ��f l-46961e513a-108��� ��`�z� ��y�s}IssssP\bf
��\=�h ��L�s}IsXsss_sf�� ��\m�h ��� ��\��h ��\'�h ��\)�h ���� ��_�s} ��\2�| ����� ��\��h ���s} ��\
�| ����� ��\3�h ��\��h ��\v�| ���� ����� ������ ����� ��_s} ��\w�| ��g stream-value-proc��g %stream-value-proc-procedure��g m-46961e513a-10f���^ ��� ��f l-46961e513a-111��� ��`u�� ���s�IssssP\bf ��\9�h ��8� ���U ��Ls�IsXsss_sf�� ��\D�h ��8� �����U ���� ��f l-46961e513a-114��f l-46961e513a-115���� ��`n�� ����s�IssssP\bf
��\k�h ��\��h ��_�s� ��\2�| ���� ��� ��\{�h ��8� �����U ��f l-46961e513a-119��f l-46961e513a-11a���� ��`n�� ����s�IssssP\bf
��\k�h ��\��h ���s� ��\�| ���� ��� ��\��h ��8� �����U ��f l-46961e513a-11e��f l-46961e513a-11f���� ��`n�� ����s�IssssP\bf
��\k�h � \��h �_�s� �\�| � � �g t-46961e513a-10e� �f l-46961e513a-123� � `� �
� s�IssssP\bf
�\=
h �L s�IsXsss_sf�� �
\mh �
�\�h �\'h �\)h �
�_ s� �\2| � �\�h � s� �\| �
�\3h �\�h �\�| � �
� � �!_s� �"\�!| �#g m-46961e513a-12a�$#^ �%$LLLL �&f l-46961e513a-12f�'f l-46961e513a-130�(f l-46961e513a-131�)f l-46961e513a-132�*f l-46961e513a-133�+&'()* �,`�%+ �-$ �.f l-46961e513a-12c�/. �0`u-/ �1L,s0Is�sss���
�2\�1h �3_,s0 �4\23| �5\v3| �6\�3| �756 �8g stream-value-tag-set!�9g %stream-value-tag-set!-procedure�:g m-46961e513a-13e�;:^ �<g t-46961e513a-13c�=g t-46961e513a-13d�><= �?;; �@f l-46961e513a-143�Af l-46961e513a-144�B@A �C`>?B �D; �Ef l-46961e513a-140�FE �G`uDF �H;CsGIssssP\bf
�I\=Hh �JLCsGIs
ss�� �K\mJh �L\jJh �MKL �N\�Jh �O\'Jh �P\)Jh �QPK �R_CsG �S\2R| �TOQS �U\$Jh �VCsG �W\
V| �XUKWL �Y\3Jh �Z\�Jh �[\8R| �\Z[ �]YK\ �^NTX] �_IM^ �`_sG �a\9`| �bg stream-value-proc-set!�cg !%stream-value-proc-set!-procedure�dg m-46961e513a-14e�ed^ �fg t-46961e513a-14c�gg t-46961e513a-14d�hfg �iee �jf l-46961e513a-153�kf l-46961e513a-154�ljk �m`hil �ne �of l-46961e513a-150�po �q`unp �remsqIssssP\bf
�s\=rh �tLmsqIs
ss�� �u\mth �v\jth �wuv �x\�th �y\'th �z\)th �{zu �|_msq �}\2|| �~y{} �\$th ��msq ��\�| ��u�v ��\3th ��\�th ��\b|| ���� ���u� ��x~�� ��sw� ��_sq ��\c�| ��g stream-lazy��g exp��a� ��g m-46961e513a-173���^ ���_ ��f l-46961e513a-178��f l-46961e513a-179���� ��`��� ��� ��f l-46961e513a-175��� ��`u�� ��_�s� ��\;�| ��\4�| ��\��| ��g lazy��\��| ���� ��\=�| ��g eager��g stream-eager��g stream-delay��g m-46961e513a-187���^ ���_ ��f l-46961e513a-18c��f l-46961e513a-18d���� ��`��� ��� ��f l-46961e513a-189��� ��`u�� ��_�s� ��\��| ��\��| ��g stream-force��g null��g %stream-null��g stream-pare��g %make-stream-pare-procedure��g make-stream-pare��g m-46961e513a-1d9���^ ��g t-46961e513a-1d7��g t-46961e513a-1d8���� ���� ��f l-46961e513a-1de��f l-46961e513a-1df���� ��`��� ��� ��f l-46961e513a-1db��� ��`u�� ����s�IssssP\bf
��\=�h ��g kar��_�s� ��\��| ��g kdr��\��| ���� ��g m-46961e513a-1d5���^ ����s�Is|sss��s��� ��\n�h ��\��| ��\
�h ������� ����� ��_s� ��\��| ���� ��g %stream-pare?-procedure��g stream-pare?��g m-46961e513a-1e8���^ ��g t-46961e513a-1e7��� ��� ��f l-46961e513a-1ed��� ��`��� ��f l-46961e513a-1ea��� ��`u�� ����s�IssssP\bf
��\=�h ����s�Is�ssss�s�s�s�sss
s�� ��\c�h ��� ��\"�h ��\$�h ���� ��\'�h ��\)�h ���� ��_�s� ��\��| ����� ����� ����� ��_s� ��\��| ��g
stream-kar��g %stream-kar-procedure��g m-46961e513a-1f4���^ ��� ��f l-46961e513a-1f6��� � `u�� ��s IssssP\bf �\9h �8 �U ��s IsXsss_sf�� �\Dh �8 ��U � �� �
f l-46961e513a-1f9�f l-46961e513a-1fa�
�
`n ��
s IssssP\bf
�\kh �\�h �_
s �\�| � � �\{h �8 ��U �f l-46961e513a-1fe�f l-46961e513a-1ff� �`n ��s IssssP\bf
�\kh �\�h �s � \
| �! �"! �#\�h �$8# �%�$U �&f l-46961e513a-203�'f l-46961e513a-204�(&' �)`n ( �*�)s IssssP\bf
�+\k*h �,\�*h �-g %%stream-pare-set-fields�._)s �/\-.| �0,/ �10 �2g t-46961e513a-1f3�32 �4f l-46961e513a-208�54 �6`3�5 �7�6s IssssP\bf
�8\=7h �9�6s IsXsss_sf�� �:\m9h �;: �<\�9h �=\'9h �>\)9h �?>: �@_6s �A\�@| �B=?A �C\�9h �D6s �E\
D| �FC:E �G\39h �H\�9h �I\�@| �JHI �KG:J �L<BFK �M8;L �N_s �O\�N| �Pg
stream-kdr�Qg %stream-kdr-procedure�Rg m-46961e513a-20f�SR^ �TS �Uf l-46961e513a-211�VU �W`uTV �XSsWIssssP\bf �Y\9Xh �Z8Y �[ZU �\�sWIsXsss_sf�� �]\D\h �^8] �_�[^U �`SS �af l-46961e513a-214�bf l-46961e513a-215�cab �d`n`c �eSdsWIssssP\bf
�f\keh �g\�eh �h_dsW �i\�h| �jgi �kj �l\{\h �m8l �n�[mU �of l-46961e513a-219�pf l-46961e513a-21a�qop �r`n`q �sSrsWIssssP\bf
�t\ksh �u\�sh �vrsW �w\v| �xuw �yx �z\�\h �{8z �|�[{U �}f l-46961e513a-21e�~f l-46961e513a-21f�}~ ��`n` ��S�sWIssssP\bf
��\k�h ��\��h ��_�sW ��\-�| ���� ��� ��g t-46961e513a-20e��� ��f l-46961e513a-223��� ��`�T� ��S�sWIssssP\bf
��\=�h ����sWIsXsss_sf�� ��\m�h ��� ��\��h ��\'�h ��\)�h ���� ��_�sW ��\��| ����� ��\��h ���sW ��\�| ����� ��\3�h ��\��h ��\P�| ���� ����� ������ ����� ��_sW ��\Q�| ��g m-46961e513a-22a���^ ������� ��f l-46961e513a-22f��f l-46961e513a-230��f l-46961e513a-231��f l-46961e513a-232��f l-46961e513a-233������� ��`��� ��� ��f l-46961e513a-22c��� ��`u�� ����s�Is�sss���
��\��h ��_�s� ��\��| ��\��| ��\P�| ���� ��g strm��ac� ��g m-46961e513a-259���^ ���__ ��f l-46961e513a-25e��f l-46961e513a-25f��f l-46961e513a-260����� ��`��� ��� ��f l-46961e513a-25b��� ��`u�� ��_�s� ��\��| ��\��| ��\��| ��\��| ��f
non-stream��f null stream��g body0��g body1��aS�� ��g m-46961e513a-28d���^ ���___ ��f l-46961e513a-292��f l-46961e513a-293��f l-46961e513a-294��f l-46961e513a-295������ ��`��� ��� ��f l-46961e513a-28f��� ��`u�� ��_�s� ��\=�| ��\��| ��g begin��\��| ��g on-eagerS������g on-lazyS��� ����� ��g stream-promise-visit��g set-record-type-printer!��g display��f #<stream��g
write-char��g write��f ...>��W���U��g define��g formal��a��� ��g m-46961e513a-2cf���^ ���____ ��f l-46961e513a-2d4��f l-46961e513a-2d5��f l-46961e513a-2d6��f l-46961e513a-2d7��f l-46961e513a-2d8������� ��`��� � � �f l-46961e513a-2d1� �`u �_�s �\�| �\(| ��W��U�� U��
g letrec�g body2�aEj� �
g m-46961e513a-2e0�
^ �_____ �f l-46961e513a-2e5�f l-46961e513a-2e6�f l-46961e513a-2e7�f l-46961e513a-2e8�f l-46961e513a-2e9�f l-46961e513a-2ea� �` � �f l-46961e513a-2e2� �`u �_s �\
| �\(| �g proper-list?� g circular-list?�!f non-list argument�"g current-input-port�#g input-port?�$f non-input-port argument�%g read-char�&g eof-object?�'U �(a �)g m-46961e513a-359�*)^ �+* �,f l-46961e513a-35e�-, �.`(+- �/f l-46961e513a-35b�0/ �1`u+0 �2_.s1 �3\!2| �4g y�5at4 �6*__ �7f l-46961e513a-361�8f l-46961e513a-362�9f l-46961e513a-363�:789 �;`56: �<_;s1 �=\"<| �>\,<| �?g % stream-fold-aux-procedure�@g stream-fold-aux�A�UUUU �Bg syntax-parameterize�Cg m-46961e513a-36c�DC^ �Eg t-46961e513a-368�Fg t-46961e513a-369�Gg t-46961e513a-36a�Hg t-46961e513a-36b�IEFGH �JDDDD �Kf l-46961e513a-371�Lf l-46961e513a-372�Mf l-46961e513a-373�Nf l-46961e513a-374�OKLMN �P`IJO �QD �Rf l-46961e513a-36e�SR �T`uQS �Uf l-bde397a-1eaf�Vf l-bde397a-1eb0�WUV �X`KLW �YS �Zf l-bde397a-1ea6�[f l-bde397a-1ea7�\f l-bde397a-1ea8�]Z[\ �^`Ya] �_g prefix�`]_ �a__ �bf l-bde397a-1e9a�cf l-bde397a-1e98�dbc �e``ad �ff l-bde397a-1e97�gf �h`ucg �iDPsTIssssX^eh
�j{ �k\Bij �l_PsT �m\@l| �ng identifier-syntax�o\nij �p\?l| �qop �rmq �sr �t\=ij �u\Hl| �vg base�w\vl| �x\�l| �yg limit�z\yl| �{uwxz �|g do�}\|l| �~\jl| �\"l| ��\&l| ���x ��u~� ��u� ��~w� ��\'l| ���x ��xx� ��g 1-��\�l| ���z ��z� ��zz� ����� ��g or��\�l| ��g zero?��\�l| ���z ��z� ��\$l| ���x ����� ��g values��\�l| ���~xz ���� ��}�� ��t{� ��ks� ��� ��� ��_sT ��\?�| ��f non-stream argument��g integer?��f non-integer count��g exact?��f
inexact count��f negative count��g reverse!��g xcons��f !non-stream object in input stream��g
circular-list��g stream-do��U����� ��WV�������������f l-46961e513a-478��� ��`uc� ��g var-step��g end���� ��f l-46961e513a-475��f l-46961e513a-473���� ��`�a� ��f l-46961e513a-472��� ��`uc� ��_s��� ��\��| ��\�| ����� ��g result��� ��f l-46961e513a-47f��� ��`�c� ��_�s��� ��\��| ��f bad step expression��UV ��g step���� ��f l-46961e513a-49c��f l-46961e513a-49d���� ��`�L� ��g var��g init��g test�������� ��f l-46961e513a-48d��f l-46961e513a-48e��f l-46961e513a-48f��f l-46961e513a-490��f l-46961e513a-491��f l-46961e513a-492�������� ��`�� ��_s���� ��\9�| ��g loop��\��| ��\��| ��\��| ��g append��� ��� ��f non-integer argument��f inexact argument��f negative argument��g
procedure?��f non-procedural argument��g apply��g number?��f non-numeric starting number��f non-numeric step size��g ?��f l-46961e513a-6c1��� ��`uc� ��g make-guarded��g make-matcher���� ��f l-46961e513a-6be��f l-46961e513a-6bc���� ��`�a� ��f l-46961e513a-6bb��� ��`uc� ��_s��� ��\��| � \$�| �� �g next� �f l-46961e513a-6d4� �`c �g rest�� � f l-46961e513a-6ce�
f l-46961e513a-6cf�
�`L �
_ss��� �\�
| �g negate�\
| �\$
| � �g =�\
| �\&
| �\'
| �� �U�����g generate-temporaries�'� ��U �g guard�g fail�� � f l-46961e513a-6df�!f l-46961e513a-6e0�"f l-46961e513a-6e1�# !" �$`a# �%t �&f l-46961e513a-6d8�'f l-46961e513a-6d9�(&' �)`%L( �*_$s)�� �+\�*| �,VV �-g matcher�.-� �/f l-46961e513a-6f5�0f l-46961e513a-6f6�1/0 �2`.L1 �3 �4f l-46961e513a-6f0�54 �6`3c5 �7g strm-expr�8g pat�978� �:f l-46961e513a-6e7�;f l-46961e513a-6e8�<f l-46961e513a-6e9�=:;< �>`9a= �?_s2ss6>�� �@\]?| �A\�?| �B\P?| �C\#?| �D\�?| �E\;?| �FDE �G\�?| �HBCAFG �I\?| �Jg =>�K\J?| �Lg
stream-of-aux�Ma� �Ng m-46961e513a-701�ON^ �PO__ �Qf l-46961e513a-706�Rf l-46961e513a-707�Sf l-46961e513a-708�TQRS �U`MPT �VO �Wf l-46961e513a-703�XW �Y`uVX �Z_UsY �[\LZ| �\\!Z| �]a�v �^g m-46961e513a-70d�_^^ �`___ �af l-46961e513a-712�bf l-46961e513a-713�cf l-46961e513a-714�dabc �e`]`d �f_ �gf l-46961e513a-70f�hg �i`ufh �j_esi �k\"j| �lg in�m_si �n\lm| �o8n �pUoU �qpV��rUq��sUr��tUs��ua�v�, �v______ �wf l-46961e513a-719�xf l-46961e513a-71a�yf l-46961e513a-71b�zf l-46961e513a-71c�{f l-46961e513a-71d�|f l-46961e513a-71e�}wxyz{| �~`uv} �_~si ��\9| ��g recur��\�| ��\�| ��\�| ��\$| ���� ��\]| ��\&| ���� ��� ��\L| ��\'| ���� ���� ��g is��\�m| ��8� ��U�U ���V���U����U����U����a�v�� ��f l-46961e513a-727��f l-46961e513a-728��f l-46961e513a-729��f l-46961e513a-72a��f l-46961e513a-72b��f l-46961e513a-72c�������� ��`�v� ��_�si ��\]�| ��\L�| ��g pred?��a�v� ��_____ ��f l-46961e513a-735��f l-46961e513a-736��f l-46961e513a-737��f l-46961e513a-738��f l-46961e513a-739������� ��`��� ��_�si ��\��| ��\L�| ��f non-numeric ending number��g <��g >��f beyond end of stream��f non-procedural mapper��f non-procedural pred?��f non-procedural generator��g list->vector��g error��� ��� ��f no matching pattern��g
list-tabulate��g
vector-length�C 5 h�� � ]4
F5 4I > "