Your IP : 3.145.2.192
GOOF----LE-8-2.0ܑ ]
w 4 h�� ] g guile� � g define-module*� � � g srfi� g srfi-42� � g filenameS�
f srfi/srfi-42.scm� g exportsS� g :�
g :-dispatch-ref� g :-dispatch-set!� g :char-range� g :dispatched� g :do� g :generator-proc� g :integers� g :let� g :list� g :parallel� g :port� g :range� g :real-range� g :string� g :until� g :vector� g :while� g any?-ec� g append-ec� g dispatch-union� !g do-ec� "g every?-ec� #g first-ec� $g fold-ec� %g fold3-ec� &g last-ec� 'g list-ec� (g make-initial-:-dispatch� )g max-ec� *g min-ec� +g
product-ec� ,g string-append-ec� -g string-ec� .g sum-ec� /g vector-ec� 0g vector-of-length-ec� 1
!"#$%&'()*+,-./0 %� 2g set-current-module� 32 � 42 � 5g cond-expand-provide� 6g current-module� 7 � 8g make-syntax-transformer� 98 � :8 � ;g macro� <g $sc-dispatch� =< � >< � ?g any� @g free-id� Ag
syntax-object� Bg nested� Cg top� DC � Eg ribcage� FE � Gg x� HG � Ig m-46961e513b-2� JIC � KJ � Lf l-46961e513b-4� ML � NEHKM � ODFN � Pg hygiene� QP � RABOQ � S@R � Tg each-any� UST�� VUT�� W?V�� Xg dummy� Yg q� Zg etc� [XYZ � \JDD � ]f l-46961e513b-7� ^f l-46961e513b-8� _f l-46961e513b-9� `]^_ � aE[\` � bDaFN � cA!bQ � dg append� ed � fd � g?T�� h?g�� i?h�� j?i�� kg q1� lg q2� mg etc1� nXklmZ � oJDDDD � pf l-46961e513b-10� qf l-46961e513b-11� rf l-46961e513b-12� sf l-46961e513b-13� tf l-46961e513b-14� upqrst � vEnou � wDvFN � xA!wQ � y?? � zg begin� {g cmd� |X{ � }JD � ~f l-46961e513b-1c� f l-46961e513b-1d� �~ � �E|}� � �D�FN � �Az�Q � �g if� �A��Q � �A�Q � ���� � �� � �A�OQ � �@� � ��? � �?�? � �g test� �X�{ � �f l-46961e513b-21� �f l-46961e513b-22� �f l-46961e513b-23� ���� � �E�\� � �D�FN � �A��Q � �A!�Q � �g not� �A�OQ � �@� � ��? � �?�? � �f l-46961e513b-28� �f l-46961e513b-29� �f l-46961e513b-2a� ���� � �E�\� � �D�FN � �A��Q � �A��Q � �A!�Q � �g and� �A�OQ � �@� � ��T�� �?�? � �f l-46961e513b-2f� �f l-46961e513b-30� �f l-46961e513b-31� ���� � �E�\� � �D�FN � �A��Q � �A��Q � �A!�Q � �g or� �A�OQ � �@� � ��T�� �?�? � �f l-46961e513b-37� �f l-46961e513b-38� �f l-46961e513b-39� ���� � �E�\� � �D�FN � �A��Q � �A��Q � �A!�Q � �AzOQ � �@� � ��T�� �?�? � �XZ{ � �f l-46961e513b-3f� �f l-46961e513b-40� �f l-46961e513b-41� ���� � �E�\� � �D�FN � �Az�Q � �A!�Q � �AOQ � �@� � ��?????? � �?�? � �g do-ec:do� �g olet� �g lbs� �g ne1?� �g ilet� �g ne2?� �g lss� �X������{ � �JDDDDDDD � �f l-46961e513b-47� �f l-46961e513b-48� �f l-46961e513b-49� �f l-46961e513b-4a� �f l-46961e513b-4b� �f l-46961e513b-4c� �f l-46961e513b-4d� �f l-46961e513b-4e� ��������� � �E��� � �D�FN � �A��Q � �A�Q � �?h? � �g g� �g arg1� �g arg� �X���{ � �f l-46961e513b-58� �f l-46961e513b-59� �f l-46961e513b-5a� �f l-46961e513b-5b� �f l-46961e513b-5c� ������ � �E�o� � �D�FN � �A��Q � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g m-46961e513b-63� ��C � �� � �f l-46961e513b-65� �� � �EH�� � DF� �A Q �@ �g let�A Q �@ �g��???T �?? � g ec-simplify�
g obs�g oc�g ibs�
g ic�g ls�X{
��
�
��DDDDDDDDD
�f l-46961e513b-68�f l-46961e513b-69�f l-46961e513b-6a�f l-46961e513b-6b�f l-46961e513b-6c�f l-46961e513b-6d�f l-46961e513b-6e�f l-46961e513b-6f�f l-46961e513b-70�f l-46961e513b-71�
�E �DF� �A Q �AQ � g loop�!A Q �"A�Q �#g m-46961e513b-7f�$#C �%$ �&f l-46961e513b-81�'& �(EH%' �)DF( �*A�)Q �+@* �,g atom�-, �.+-? �/?. �0, �1+0? �2?1 �3g
consequent�4X3 �5$D �6f l-46961e513b-89�7f l-46961e513b-8a�867 �9E458 �:D9F( �;A�:Q �<A:Q �=;<< �>+-?? �??> �@+0?? �A?@ �BA�)Q �C@B �DC? �ECD �F+E? �G?F �HX�3 �I$DD �Jf l-46961e513b-9c�Kf l-46961e513b-9d�Lf l-46961e513b-9e�MJKL �NEHIM �ODNF( �PA OQ �QA�OQ �R+E?? �S?R �Tg alternate�UX�3T �V$DDD �Wf l-46961e513b-a3�Xf l-46961e513b-a4�Yf l-46961e513b-a5�Zf l-46961e513b-a6�[WXYZ �\EUV[ �]D\F( �^A ]Q �_A�]Q �`A)Q �a@` �bT��cab��d?c �eg command�fXe �gf l-46961e513b-ac�hf l-46961e513b-ad�igh �jEf5i �kDjF( �lA kQ �mAzkQ �nAz)Q �o@n �poT��q?p �rf l-46961e513b-b2�sf l-46961e513b-b3�trs �uEf5t �vDuF( �wA vQ �xAvQ �y, �zpT��{?y?z �|g done�}g to-do1�~g to-do2�X|}~ ��f l-46961e513b-b8��f l-46961e513b-b9��f l-46961e513b-ba��f l-46961e513b-bb������ ��EV� ��D�F( ��A �Q ��A�Q ��?yTg ��g to-do��X|}� ��f l-46961e513b-c3��f l-46961e513b-c4��f l-46961e513b-c5��f l-46961e513b-c6������ ��E�V� ��D�F( ��A �Q ��A�Q ��?y ��X ��f l-46961e513b-ce��� ��E�%� ��D�F( ��A��Q ��A�Q ����� ��? ��?y� ��?yg ��g command1��X�e ��f l-46961e513b-d6��f l-46961e513b-d7��f l-46961e513b-d8����� ��E�I� ��D�F( ��Az�Q ��?T?????? ��g cc��X������� ��g m-46961e513b-e2���C ���DDDDDDD ��f l-46961e513b-e7��f l-46961e513b-e8��f l-46961e513b-e9��f l-46961e513b-ea��f l-46961e513b-eb��f l-46961e513b-ec��f l-46961e513b-ed��f l-46961e513b-ee���������� ��E��� ��� ��f l-46961e513b-e4��� ��EH�� ��D�F� ��A�Q ��????? ��X���� ���DDDD ��f l-46961e513b-f9��f l-46961e513b-fa��f l-46961e513b-fb��f l-46961e513b-fc��f l-46961e513b-fd������� ��E��� ��D�F� ��A�Q ��A�Q ��� ��A�Q ��g index��g m-46961e513b-103���C ��� ��f l-46961e513b-105��� ��EH�� ��DF� ��A��Q ��@� ���? ��???�? ��g var��g i��g
expression��X���� ���DDDD ��f l-46961e513b-108��f l-46961e513b-109��f l-46961e513b-10a��f l-46961e513b-10b��f l-46961e513b-10c������� ��E��� ��D�F� ��A�Q ��A�Q ��A
�Q ��� ��A�Q ��� ��A�Q ����� ��???? ��X��� ���DDD ��f l-46961e513b-113��f l-46961e513b-114��f l-46961e513b-115��f l-46961e513b-116������ ��E��� ��D�F� ��A�Q ��A�Q ��A�Q ��� ��A�Q ����� � hT��? ��?��g :parallel-1�g gen�X���� �g m-46961e513b-11b�C �DDDDD � f l-46961e513b-125�
f l-46961e513b-126�f l-46961e513b-127�f l-46961e513b-128�
f l-46961e513b-129�f l-46961e513b-12a�
�E � �f l-46961e513b-11d� �EH �DF �AQ �?? ? �g result�X���� �g m-46961e513b-133�C �DDDDDD �f l-46961e513b-138�f l-46961e513b-139�f l-46961e513b-13a� f l-46961e513b-13b�!f l-46961e513b-13c�"f l-46961e513b-13d�#f l-46961e513b-13e�$ !"# �%E$ �& �'f l-46961e513b-135�(' �)EH&( �*D%F) �+A*Q �,DF) �-A,Q �.@- �/A,Q �0@/ �1TT��201��3.2T?2?T �4???33 �5g gens�6g ob1�7g oc1�8g lb1�9g ne1?1�:g ib1�;g ic1�<g ne2?1�=g ls1�>g ob2�?g oc2�@g lb2�Ag ne1?2�Bg ib2�Cg ic2�Dg ne2?2�Eg ls2�FX�56789:;<=>?@ABCDE �GDDDDDDDDDDDDDDDDDD �Hf l-46961e513b-149�If l-46961e513b-14a�Jf l-46961e513b-14b�Kf l-46961e513b-14c�Lf l-46961e513b-14d�Mf l-46961e513b-14e�Nf l-46961e513b-14f�Of l-46961e513b-150�Pf l-46961e513b-151�Qf l-46961e513b-152�Rf l-46961e513b-153�Sf l-46961e513b-154�Tf l-46961e513b-155�Uf l-46961e513b-156�Vf l-46961e513b-157�Wf l-46961e513b-158�Xf l-46961e513b-159�Yf l-46961e513b-15a�Zf l-46961e513b-15b�[HIJKLMNOPQRSTUVWXYZ �\EFG[ �]D\F) �^A]Q �_A]Q �`A]Q �aA�]Q �b?T? �c??h? �dg :while-1�eX����� �fg m-46961e513b-183�gfC �hgDDDDD �if l-46961e513b-188�jf l-46961e513b-189�kf l-46961e513b-18a�lf l-46961e513b-18b�mf l-46961e513b-18c�nf l-46961e513b-18d�oijklmn �pEeho �qg �rf l-46961e513b-185�sr �tEHqs �uDpFt �vAduQ �wg m-46961e513b-195�xwC �yx �zf l-46961e513b-197�{z �|EHy{ �}DF| �~A}Q �@~ ��?????? ��???� ��g :while-2��X�������� ��xDDDDDDDD ��f l-46961e513b-19a��f l-46961e513b-19b��f l-46961e513b-19c��f l-46961e513b-19d��f l-46961e513b-19e��f l-46961e513b-19f��f l-46961e513b-1a0��f l-46961e513b-1a1��f l-46961e513b-1a2����������� ��E��� ��D�F| ��A��Q ��A�Q ��g m-46961e513b-1ac���C ��� ��f l-46961e513b-1ae��� ��EH�� ��DF� ��A�Q ��@� ��A�Q ��@� ��yT����T���������???�?? ��???TTT� ��g ib-let��g ib-save��g
ib-restore��g ib-var��g ib-rhs��g ib��X�����������
�� ���DDDDDDDDDDDDDD ��f l-46961e513b-1b1��f l-46961e513b-1b2��f l-46961e513b-1b3��f l-46961e513b-1b4��f l-46961e513b-1b5��f l-46961e513b-1b6��f l-46961e513b-1b7��f l-46961e513b-1b8��f l-46961e513b-1b9��f l-46961e513b-1ba��f l-46961e513b-1bb��f l-46961e513b-1bc��f l-46961e513b-1bd��f l-46961e513b-1be��f l-46961e513b-1bf����������������� ��E��� ��D�F� ��A��Q ��g ib-tmp��A��Q ��A�Q ���� ��� ��� ��A�Q ��A�Q ��g set!��A��Q ���1����b�����??�?? ��???TTT� ��g ob��X��������
��
���DDDDDDDDDDDD
��f l-46961e513b-1d5��f l-46961e513b-1d6��f l-46961e513b-1d7��f l-46961e513b-1d8��f l-46961e513b-1d9��f l-46961e513b-1da��f l-46961e513b-1db��f l-46961e513b-1dc��f l-46961e513b-1dd��f l-46961e513b-1de��f l-46961e513b-1df��f l-46961e513b-1e0��f l-46961e513b-1e1���������������
��E��� ��D�F� ��A�Q ��A�Q ��g
ne1?-value��A��Q ��A��Q ��g :until-1��g m-46961e513b-1f5���C ���DDDDD ��f l-46961e513b-1fa��f l-46961e513b-1fb��f l-46961e513b-1fc��f l-46961e513b-1fd��f l-46961e513b-1fe��f l-46961e513b-1ff�������� ��Ee�� ��� ��f l-46961e513b-1f7��� ��EH�� ��D�F� ��A��Q ��g m-46961e513b-207���C ��� ��f l-46961e513b-209��� ��EH�� ��DF� ��A�Q ��@� ���?????? � ???� ��DDDDDDDD �f l-46961e513b-20c�f l-46961e513b-20d�f l-46961e513b-20e�f l-46961e513b-20f�f l-46961e513b-210�f l-46961e513b-211�f l-46961e513b-212� f l-46961e513b-213�
f l-46961e513b-214�
�E� �
DF� �A
Q �A�
Q �A�
Q �g m-46961e513b-21e�C � �f l-46961e513b-220� �EH �DF �A�Q �@ �? �T��?��?��?��X���� � DDDD �!f l-46961e513b-223�"f l-46961e513b-224�#f l-46961e513b-225�$f l-46961e513b-226�%f l-46961e513b-227�&!"#$% �'E & �(D'F �)A(Q �*A(Q �+A(Q �,?j��-g arg2�.X���-� �/DDDDD �0f l-46961e513b-22f�1f l-46961e513b-230�2f l-46961e513b-231�3f l-46961e513b-232�4f l-46961e513b-233�5f l-46961e513b-234�6012345 �7E./6 �8D7F �9A8Q �:Ad8Q �;X��� �<DDD �=f l-46961e513b-23d�>f l-46961e513b-23e�?f l-46961e513b-23f�@f l-46961e513b-240�A=>?@ �BE;<A �CDBF �DACQ �EACQ �FE �Gg t�HAGCQ �IA�CQ �Jg null?�KAJCQ �LKH �MIL �Ng car�OANCQ �POH �QP �RACQ �Sg cdr�TASCQ �UTH �VU �WRV �Xg m-46961e513b-245�YXC �ZY �[f l-46961e513b-247�\[ �]EHZ\ �^DF] �_A�^Q �`@_ �a`? �b???a? �cYDDDD �df l-46961e513b-24a�ef l-46961e513b-24b�ff l-46961e513b-24c�gf l-46961e513b-24d�hf l-46961e513b-24e�idefgh �jEci �kDjF] �lAkQ �mAkQ �ng str�oAnkQ �pg len�qApkQ �rA
kQ �sqr �ts �uA�kQ �vg
string-length�wAvkQ �xwo �yuqx �zy �{r �|g <�}A|kQ �~q �g
string-ref��AkQ ��AkQ ��g +��A�kQ ��AkQ ��� ��ah���?����?����?����X����-� ��YDDDDDD ��f l-46961e513b-255��f l-46961e513b-256��f l-46961e513b-257��f l-46961e513b-258��f l-46961e513b-259��f l-46961e513b-25a��f l-46961e513b-25b��������� ��E��� ��D�F] ��A�Q ��A��Q ��g
string-append��A��Q ��X���� ��f l-46961e513b-265��f l-46961e513b-266��f l-46961e513b-267��f l-46961e513b-268��f l-46961e513b-269������� ��E�c� ��D�F] ��A�Q ��A��Q ��A��Q ���� ��g m-46961e513b-270���C ���DDD ��f l-46961e513b-275��f l-46961e513b-276��f l-46961e513b-277��f l-46961e513b-278������ ��E;�� ��� ��f l-46961e513b-272��� ��EH�� ��D�F� ��A�Q ��A��Q ��A��Q ���� ��DF� ��A��Q ��@� ���? ��???�? ���DDDD ��f l-46961e513b-27e��f l-46961e513b-27f��f l-46961e513b-280��f l-46961e513b-281��f l-46961e513b-282������� ��E�� ��D�F� ��A�Q ��A�Q ��g vec��A��Q ��Ap�Q ��A
�Q ���� ��� ��A��Q ��g
vector-length��A��Q ���� ����� ��� ��� ��A|�Q ��� ��g
vector-ref��A��Q ��A�Q ��A��Q ��A�Q ��� ���h���?ތ��?ߌ��?���DDDDDD ��f l-46961e513b-289��f l-46961e513b-28a��f l-46961e513b-28b��f l-46961e513b-28c��f l-46961e513b-28d��f l-46961e513b-28e��f l-46961e513b-28f��������� ��E��� ��D�F� ��A�Q ��A�Q ��A�Q ���DDDDD ��f l-46961e513b-299��f l-46961e513b-29a��f l-46961e513b-29b��f l-46961e513b-29c��f l-46961e513b-29d��f l-46961e513b-29e�������� ��E.�� ��D�F� ��A�Q ��A�Q ��A��Q ��A�Q ���� ��Ap�Q � A
�Q �� �g vecs�A�Q �g ec-:vector-filter�A�Q �g list�A�Q �g k� A�Q �
�
�A��Q �
A|�Q �
� �A�Q �AJ�Q � �Az�Q �A��Q �AN�Q � �� �AS�Q � � �A��Q �� �� � � �� � �!A��Q �"!� �#" �$A��Q �%A�Q �&$ % �'& �(' �)g m-46961e513b-2a6�*)C �+* �,f l-46961e513b-2a8�-, �.EH+- �/DF. �0A�/Q �1@0 �21? �3???2 �4X��� �5*DDD �6f l-46961e513b-2ab�7f l-46961e513b-2ac�8f l-46961e513b-2ad�9f l-46961e513b-2ae�:6789 �;E45: �<D;F. �=A<Q �>A
<Q �?> �@A<Q �AA�<Q �BA<Q �CB �D??? �EX�� �F*DD �Gf l-46961e513b-2b4�Hf l-46961e513b-2b5�If l-46961e513b-2b6�JGHI �KEEFJ �LDKF. �MALQ �NA
LQ �ON �PALQ �QA�LQ �RALQ �SR �Tg m-46961e513b-2ba�UTC �VU �Wf l-46961e513b-2bc�XW �YEHVX �ZDFY �[A�ZQ �\@[ �]\? �^]g��_?^��`?_��a?`��bX����� �cUDDDDD �df l-46961e513b-2bf�ef l-46961e513b-2c0�ff l-46961e513b-2c1�gf l-46961e513b-2c2�hf l-46961e513b-2c3�if l-46961e513b-2c4�jdefghi �kEbcj �lDkFY �mAlQ �nAlQ �oAlQ �pX��� �qUDDD �rf l-46961e513b-2cd�sf l-46961e513b-2ce�tf l-46961e513b-2cf�uf l-46961e513b-2d0�vrstu �wEpqv �xDwFY �yAxQ �zA
xQ �{AxQ �|{ �}X���- �~UDDDD �f l-46961e513b-2d6��f l-46961e513b-2d7��f l-46961e513b-2d8��f l-46961e513b-2d9��f l-46961e513b-2da������ ��E}~� ��D�FY ��A�Q ��A�Q ��� ��,
��???�?y ��X��- ��f l-46961e513b-2e1��f l-46961e513b-2e2��f l-46961e513b-2e3��f l-46961e513b-2e4������ ��E�q� ��D�FY ��A�Q ��A�Q ��g b��A��Q ��A��Q ��A��Q ��A��Q ��g integer?��A��Q ���� ��g exact?��A��Q ���� ����� ���� ��g error��A��Q ��f *arguments of :range are not exact integer ��A��Q ��f (use :real-range?)��A��Q ��A
�Q ��A�Q �������� ����� ��� ��� ��A|�Q ��� ��� ��A�Q ��A��Q ��� ��, � ��???�?� ��f l-46961e513b-2ea��f l-46961e513b-2eb��f l-46961e513b-2ec��f l-46961e513b-2ed������ ��E�q� ��D�FY ��A�Q ��A�Q ��A��Q ��A��Q ��A��Q ��A��Q ��A��Q ���� ��A��Q ���� ����� ���� ��A��Q ��A��Q ��A��Q ��A
�Q ��A�Q �������� ����� ��� ��� ��g >��A��Q ��� ��� ��A�Q ��g -��A��Q ��� ��?????y ��f l-46961e513b-2f3��f l-46961e513b-2f4��f l-46961e513b-2f5��f l-46961e513b-2f6��f l-46961e513b-2f7������� ��E}~� ��D�FY ��A�Q ��A�Q ��g a��A��Q ��A��Q ��A��Q ��A��Q ��A��Q ��A��Q ���� ��A��Q ���� ���� ���� ������� ���� ��A��Q ��A��Q ��A��Q ��A�Q �������� ����� ��� ��� ��A|�Q ��� ��� ��A�Q � A��Q �� �?????� �f l-46961e513b-2fe�f l-46961e513b-2ff�f l-46961e513b-300�f l-46961e513b-301�f l-46961e513b-302� � E}~ �
D FY �A
Q �A
Q �
A�
Q �A�
Q �g s�A
Q �A �
Q � �g stop�A
Q �A
Q � � �A�
Q �A�
Q �A�
Q �A�
Q �
�A�
Q �
� � �! �"! �#A�
Q �$A�
Q �%A�
Q �&#$%
�'"& �(' �)
�*A�
Q �+ �, �-A
Q �.A�
Q �/A
Q �0/ �1?????? �2g arg3�3X���-2 �4f l-46961e513b-309�5f l-46961e513b-30a�6f l-46961e513b-30b�7f l-46961e513b-30c�8f l-46961e513b-30d�9f l-46961e513b-30e�:456789 �;E3c: �<D;FY �=A<Q �>A<Q �?A�<Q �@A�<Q �AA<Q �BA<Q �CA
<Q �DBC �ED �FA�<Q �GA�<Q �HA�<Q �IA�<Q �JI? �KA�<Q �LK? �MI@ �NK@ �OIA �PKA �QHJLMNOP �RGQ �SA�<Q �TA�<Q �UA�<Q �VSTU?@A �WFRV �Xg zero?�YAX<Q �ZYA �[f $step size must not be zero in :range�\A[<Q �]S\ �^FZ] �_A�<Q �`A�<Q �ag *�bAa<Q �cg max�dAc<Q �eg ceiling�fAe<Q �gg /�hAg<Q �iA�<Q �ji@? �khjA �lfk �mdCl �nbmA �o`?n �p_Bo �qW^p �r? �sg =�tAs<Q �uB �v> �wA<Q �xA �yg m-46961e513b-315�zyC �{zDDD �|f l-46961e513b-31a�}f l-46961e513b-31b�~f l-46961e513b-31c�f l-46961e513b-31d��|}~ ��Ep{� ��z ��f l-46961e513b-317��� ��EH�� ��D�F� ��A�Q ��A��Q ��A��Q ���� ��A
�Q ��A�Q ��� ��DF� ��A��Q ��@� ���? ��???�? ��X���� ��zDDDD ��f l-46961e513b-323��f l-46961e513b-324��f l-46961e513b-325��f l-46961e513b-326��f l-46961e513b-327������� ��E��� ��D�F� ��A�Q ��A��Q ��A
�Q ��A�Q ��� ��f l-46961e513b-32e��f l-46961e513b-32f��f l-46961e513b-330��f l-46961e513b-331��f l-46961e513b-332������� ��E}�� ��D�F� ��A�Q ��A��Q ��A��Q ���� ��A�Q ��� ��???�?? ��X����- ��zDDDDD ��f l-46961e513b-339��f l-46961e513b-33a��f l-46961e513b-33b��f l-46961e513b-33c��f l-46961e513b-33d��f l-46961e513b-33e�������� ��E��� ��D�F� ��A�Q ��A��Q ��A�Q ��� ��f l-46961e513b-346��f l-46961e513b-347��f l-46961e513b-348��f l-46961e513b-349��f l-46961e513b-34a��f l-46961e513b-34b�������� ��E3�� ��D�F� ��A�Q ��A��Q ��A��Q ���� ��???�??? ��X����-2 ��zDDDDDD ��f l-46961e513b-353��f l-46961e513b-354��f l-46961e513b-355��f l-46961e513b-356��f l-46961e513b-357��f l-46961e513b-358��f l-46961e513b-359��������� ��E��� ��D�F� ��A�Q ��A�Q ��A��Q ��A��Q ��A�Q ��g istop��A��Q ��A
�Q ���� ��� ��A��Q ��A��Q ��A��Q ��g real?��A��Q ���� ���� ���� ������ ���� ��A��Q ��f %arguments of :real-range are not real��A��Q ������� ����� ��A��Q ���� ��A��Q ���� ���� ���� ���� ����� ����� ��A��Q ��g exact->inexact��A��Q ���� � ��� ��� �Ag�Q �A��Q ��� �� ��� �� �� � A|�Q �
� �A��Q �Aa�Q �
A�Q �A�Q � �g m-46961e513b-361�C � �f l-46961e513b-363� �EH �DF �A�Q �@ �? �????? �DDDDD �f l-46961e513b-366�f l-46961e513b-367�f l-46961e513b-368�f l-46961e513b-369� f l-46961e513b-36a�!f l-46961e513b-36b�" ! �#E�" �$D#F �%A$Q �&A$Q �'A$Q �(DDDD �)f l-46961e513b-373�*f l-46961e513b-374�+f l-46961e513b-375�,f l-46961e513b-376�-f l-46961e513b-377�.)*+,- �/E}(. �0D/F �1A0Q �2A0Q �3g imax�4A30Q �5g
char->integer�6A50Q �7A�0Q �8g <=�9A80Q �:974 �;g
integer->char�<A;0Q �=<7 �>= �?A0Q �@A�0Q �AA0Q �B@7A �CB �D?C �Eg m-46961e513b-37d�FEC �GF �Hf l-46961e513b-37f�IH �JEHGI �KDFJ �LA�KQ �M@L �NM? �ONg��P?O��Q?P��R?Q��SFDDDDD �Tf l-46961e513b-382�Uf l-46961e513b-383�Vf l-46961e513b-384�Wf l-46961e513b-385�Xf l-46961e513b-386�Yf l-46961e513b-387�ZTUVWXY �[EbSZ �\D[FJ �]A\Q �^A\Q �_A\Q �`FDDD �af l-46961e513b-390�bf l-46961e513b-391�cf l-46961e513b-392�df l-46961e513b-393�eabcd �fE;`e �gDfFJ �hAgQ �ig read�jAigQ �kj �lFDDDD �mf l-46961e513b-399�nf l-46961e513b-39a�of l-46961e513b-39b�pf l-46961e513b-39c�qf l-46961e513b-39d�rmnopq �sE}lr �tDsFJ �uAtQ �vAtQ �wg port�xAwtQ �yg read-proc�zAytQ �{zx �|{ �}A�tQ �~g eof-object?�A~tQ ��v ��AtQ ����| ��g m-46961e513b-3a3���C ��� ��f l-46961e513b-3a5��� ��EH�� ��DF� ��A��Q ��@� ���? ���h���?����?����?����g dispatch��X������ ���DDDDDD ��f l-46961e513b-3a8��f l-46961e513b-3a9��f l-46961e513b-3aa��f l-46961e513b-3ab��f l-46961e513b-3ac��f l-46961e513b-3ad��f l-46961e513b-3ae��������� ��E��� ��D�F� ��A�Q ��A�Q ��A�Q ��X����� ���DDDDD ��f l-46961e513b-3b8��f l-46961e513b-3b9��f l-46961e513b-3ba��f l-46961e513b-3bb��f l-46961e513b-3bc��f l-46961e513b-3bd�������� ��E��� ��D�F� ��A�Q ��A�Q ��g d��A��Q ��g args��A��Q ��A�Q ��A��Q ��A�Q ���� ��g empty��A��Q ���� ���� ���� ��A��Q ���� ����� ��A��Q ��A��Q ��g
procedure?��A��Q ���� ���� ��A��Q ��f %unrecognized arguments in dispatching��A��Q ��g quote��A��Q ��� ���� ������ ����� ���� ���� ��� ��g eq?��A��Q ��� ��� ��A�Q ����� ��?g ��X�� ��g m-46961e513b-3c5���C ���DD ��f l-46961e513b-3ca��f l-46961e513b-3cb��f l-46961e513b-3cc����� ��E��� ��� ��f l-46961e513b-3c7��� ��EH�� ��D�F� ��A�Q ��A��Q ���� ��DF� ��A�Q ��@� ��A�Q ��@� ���g���g each���y ���T���������?�?T ��??� ��g lv��g li��g v��X�
�����
� ���DDDDDDDDDDD ��f l-46961e513b-3d2��f l-46961e513b-3d3��f l-46961e513b-3d4��f l-46961e513b-3d5��f l-46961e513b-3d6��f l-46961e513b-3d7��f l-46961e513b-3d8� f l-46961e513b-3d9�f l-46961e513b-3da�f l-46961e513b-3db�f l-46961e513b-3dc�f l-46961e513b-3dd�������� �E�� �DF� �A Q � AQ �
g map�
�
�
g ne2�A
Q �AQ � � �AQ � �g lambda�AQ �A�Q � �A�Q �A�Q � �AzQ �A�Q �g value�AQ � � �! �"X� �#�D �$f l-46961e513b-3f4�%f l-46961e513b-3f5�&$% �'E"#& �(D'F� �)A�(Q �*f illegal macro call�+A*(Q �,)+ �-f dispatching conflict�.g length�/g SRFI42�0g string?�1g input-port?�2g char?�3g list?�4g vector?�5g vector->list�6g
:-dispatch�7f not a procedure�8g m-46961e513b-3f8�98C �:9 �;f l-46961e513b-3fa�<; �=EH:< �>DF= �?A�>Q �@@? �A@? �BAg��C?B��D?C��E?D��F9DDDDD �Gf l-46961e513b-3fd�Hf l-46961e513b-3fe�If l-46961e513b-3ff�Jf l-46961e513b-400�Kf l-46961e513b-401�Lf l-46961e513b-402�MGHIJKL �NEbFM �ODNF= �PAOQ �QA�OQ �RA6OQ �S9DDDD �Tf l-46961e513b-40b�Uf l-46961e513b-40c�Vf l-46961e513b-40d�Wf l-46961e513b-40e�Xf l-46961e513b-40f�YTUVWX �ZE�SY �[DZF= �\A[Q �]A6[Q �^g m-46961e513b-416�_^C �`_ �af l-46961e513b-418�ba �cEH`b �dDFc �eABdQ �f@e �gfT��hgj��i?h��j?i��kg x0�lg etc2�mg etc3�nXkkYmlmZ �o_DDDDDDD �pf l-46961e513b-41b�qf l-46961e513b-41c�rf l-46961e513b-41d�sf l-46961e513b-41e�tf l-46961e513b-41f�uf l-46961e513b-420�vf l-46961e513b-421�wf l-46961e513b-422�xpqrstuvw �yEnox �zDyFc �{A%zQ �|ABzQ �}?,��~?}��XkklmlmZ ��f l-46961e513b-42e��f l-46961e513b-42f��f l-46961e513b-430��f l-46961e513b-431��f l-46961e513b-432��f l-46961e513b-433��f l-46961e513b-434��f l-46961e513b-435���������� ��Eo� ��D�Fc ��A%�Q ��AB�Q ��g f1��g f2��Xk��� ��_DDDD ��f l-46961e513b-440��f l-46961e513b-441��f l-46961e513b-442��f l-46961e513b-443��f l-46961e513b-444������� ��E��� ��D�Fc ��A%�Q ��AB�Q ��� ��g qualifier��Xk���� ��_DDDDD ��f l-46961e513b-44b��f l-46961e513b-44c��f l-46961e513b-44d��f l-46961e513b-44e��f l-46961e513b-44f��f l-46961e513b-450�������� ��E��� ��D�Fc ��A�Q ��A�Q ��A�Q ���� ��A��Q ��A�Q ���� ���� ��A!�Q ��A�Q ��A��Q ��Az�Q ��A��Q ��� ����� ��� ���� ��� ��g m-46961e513b-457���C ��� ��f l-46961e513b-459��� ��EH�� ��DF� ��AB�Q ��@� ���T����i���?Č��?Ō��XkkYmlZ ���DDDDDD ��f l-46961e513b-45c��f l-46961e513b-45d��f l-46961e513b-45e��f l-46961e513b-45f��f l-46961e513b-460��f l-46961e513b-461��f l-46961e513b-462��������� ��E��� ��D�F� ��A$�Q ��AB�Q ��XkklmlZ ��f l-46961e513b-46d��f l-46961e513b-46e��f l-46961e513b-46f��f l-46961e513b-470��f l-46961e513b-471��f l-46961e513b-472��f l-46961e513b-473��������� ��E��� ��D�F� ��A$�Q ��AB�Q ��Xk�� ���DDD ��f l-46961e513b-47d��f l-46961e513b-47e��f l-46961e513b-47f��f l-46961e513b-480������ ��E��� ��D�F� ��A$�Q ��AB�Q ��� ��Xk��� ���DDDD ��f l-46961e513b-486��f l-46961e513b-487��f l-46961e513b-488��f l-46961e513b-489��f l-46961e513b-48a������� ��E��� ��D�F� ��A�Q ��A�Q ��A!�Q ��A��Q ��� ��g reverse��XmZ ��g m-46961e513b-490� �C � DD �f l-46961e513b-495�f l-46961e513b-496�f l-46961e513b-497� �E� � �f l-46961e513b-492� �
EH �DF
�A�Q �
A$Q �A�Q � �g cons�AQ � �g apply�g m-46961e513b-49c�C �DD �f l-46961e513b-4a1�f l-46961e513b-4a2�f l-46961e513b-4a3� �E� � �f l-46961e513b-49e� �EH � DF �!A Q �"Ad Q �#A' Q �$g list->string�%g m-46961e513b-4a8�&%C �'&DD �(f l-46961e513b-4ad�)f l-46961e513b-4ae�*f l-46961e513b-4af�+()* �,E�'+ �-& �.f l-46961e513b-4aa�/. �0EH-/ �1D,F0 �2A$1Q �3A'1Q �4g m-46961e513b-4b4�54C �65DD �7f l-46961e513b-4b9�8f l-46961e513b-4ba�9f l-46961e513b-4bb�:789 �;E�6: �<5 �=f l-46961e513b-4b6�>= �?EH<> �@D;F? �AA@Q �BA�@Q �CA'@Q �Dg list->vector�Eg m-46961e513b-4c0�FEC �GFDD �Hf l-46961e513b-4c5�If l-46961e513b-4c6�Jf l-46961e513b-4c7�KHIJ �LE�GK �MF �Nf l-46961e513b-4c2�ON �PEHMO �QDLFP �RADQQ �SA'QQ �Tg m-46961e513b-4cc�UTC �VU �Wf l-46961e513b-4ce�XW �YEHVX �ZDFY �[ABZQ �\@[ �]\T��^]h��_?^��`?_��aXkYmZ �bUDDDDD �cf l-46961e513b-4d1�df l-46961e513b-4d2�ef l-46961e513b-4d3�ff l-46961e513b-4d4�gf l-46961e513b-4d5�hf l-46961e513b-4d6�icdefgh �jEabi �kDjFY �lA0kQ �mABkQ �nXklmZ �of l-46961e513b-4e0�pf l-46961e513b-4e1�qf l-46961e513b-4e2�rf l-46961e513b-4e3�sf l-46961e513b-4e4�tf l-46961e513b-4e5�uopqrst �vEnbu �wDvFY �xA0wQ �yABwQ �zX� �{UDD �|f l-46961e513b-4ee�}f l-46961e513b-4ef�~f l-46961e513b-4f0�|}~ ��Ez{ ��D�FY ��A0�Q ��AB�Q ��� ��X�� ��UDDD ��f l-46961e513b-4f5��f l-46961e513b-4f6��f l-46961e513b-4f7��f l-46961e513b-4f8������ ��E��� ��D�FY ��A�Q ��Ap�Q ��A��Q ��g make-vector��A��Q ���� ���� ��A��Q ��A
�Q ���� ���� ��A!�Q ��A��Q ��A|�Q ����� ��Az�Q ��g vector-set!��A��Q ��A��Q ��A��Q ��A�Q ����� ����� ��� ��A��Q ��f )vector is too short for the comprehension��A��Q ���� ��� ��As�Q ����� ��f (vector is too long for the comprehension��A��Q ���� ������ ��� ��g m-46961e513b-4fd���C ���DD ��f l-46961e513b-502��f l-46961e513b-503��f l-46961e513b-504����� ��E��� ��� ��f l-46961e513b-4ff��� ��EH�� ��D�F� ��A$�Q ��A��Q ��� ��g m-46961e513b-509���C ���DD ��f l-46961e513b-50e��f l-46961e513b-50f��f l-46961e513b-510����� ��E��� ��� ��f l-46961e513b-50b��� ��EH�� ��D�F� ��A$�Q ��Aa�Q ��� ��g m-46961e513b-515���C ���DD ��f l-46961e513b-51a��f l-46961e513b-51b��f l-46961e513b-51c����� ��E��� ��� ��f l-46961e513b-517��� ��EH�� ��D�F� ��A%�Q ��g min��A��Q ��� ���� ��g m-46961e513b-521���C ���DD ��f l-46961e513b-526��f l-46961e513b-527��f l-46961e513b-528����� ��E��� ��� ��f l-46961e513b-523��� ��EH�� ��D�F� ��A%�Q ��Ac�Q ��� ���� ��g m-46961e513b-52d���C ��� ��f l-46961e513b-52f��� ��EH�� ��DF� ��AB�Q ��@� ���T����h�� ?��� ? �� g default� X kYmZ � �DDDDD � f l-46961e513b-532� f l-46961e513b-533� f l-46961e513b-534� f l-46961e513b-535� f l-46961e513b-536�
f l-46961e513b-537�
� E �
D F� � A&
Q � AB
Q � X klmZ � f l-46961e513b-541� f l-46961e513b-542� f l-46961e513b-543� f l-46961e513b-544� f l-46961e513b-545� f l-46961e513b-546� � E � D F� � A& Q � AB Q � X � � �DD � f l-46961e513b-54f� f l-46961e513b-550� f l-46961e513b-551� ! � "E ! � #D "F� � $A& #Q � %AB #Q � & % � 'X �� � (�DDD � )f l-46961e513b-556� *f l-46961e513b-557� +f l-46961e513b-558� ,f l-46961e513b-559� - ) * + , � .E ' ( - � /D .F� � 0A /Q � 1A /Q � 2A! /Q � 3A� /Q � 4 1 � 5g m-46961e513b-55e� 6 5C � 7 6 � 8f l-46961e513b-560� 9 8 � :EH 7 9 � ;DF : � <AB ;Q � =@ < � > =T�� ? >h�� @? ?�� A? @�� B 6DDDDD � Cf l-46961e513b-563� Df l-46961e513b-564� Ef l-46961e513b-565� Ff l-46961e513b-566� Gf l-46961e513b-567� Hf l-46961e513b-568� I C D E F G H � JE B I � KD JF : � LA# KQ � MAB KQ � Nf l-46961e513b-572� Of l-46961e513b-573� Pf l-46961e513b-574� Qf l-46961e513b-575� Rf l-46961e513b-576� Sf l-46961e513b-577� T N O P Q R S � UE B T � VD UF : � WA# VQ � XAB VQ � Y 6DD � Zf l-46961e513b-580� [f l-46961e513b-581� \f l-46961e513b-582� ] Z [ \ � ^E Y ] � _D ^F : � `A# _Q � aAB _Q � b a � c 6DDD � df l-46961e513b-587� ef l-46961e513b-588� ff l-46961e513b-589� gf l-46961e513b-58a� h d e f g � iE ' c h � jD iF : � kA jQ � lA jQ � mA jQ � nA jQ � o m n � p o � qg ec-guarded-do-ec� rA q jQ � sAB jQ � tAz jQ � uA� jQ � vA jQ � w u m v � x w � y l � zg m-46961e513b-58f� { zC � | { � }f l-46961e513b-591� ~ } � EH | ~ � �DF � �AB �Q � �@ � � � �T�� � �T�� � � ��� �?? �? � �Xkl{ � � {DDDD � �f l-46961e513b-594� �f l-46961e513b-595� �f l-46961e513b-596� �f l-46961e513b-597� �f l-46961e513b-598� � � � � � � � �E � � � � �D �F � �A q �Q � �AB �Q � �A� �Q � �@ � � � �? � � �T�� � � ��� �?? �? � �X�Y{ � �f l-46961e513b-5a1� �f l-46961e513b-5a2� �f l-46961e513b-5a3� �f l-46961e513b-5a4� �f l-46961e513b-5a5� � � � � � � � �E � � � � �D �F � �A� �Q � �A q �Q � �AB �Q � �A� �Q � �@ � � � �? � � �T�� � � ��� �?? �? � �f l-46961e513b-5ad� �f l-46961e513b-5ae� �f l-46961e513b-5af� �f l-46961e513b-5b0� �f l-46961e513b-5b1� � � � � � � � �E � � � � �D �F � �A� �Q � �A� �Q � �A q �Q � �AB �Q � �A� �Q � �@ � � � �T�� � �T�� � � ��� �?? �? � �f l-46961e513b-5b9� �f l-46961e513b-5ba� �f l-46961e513b-5bb� �f l-46961e513b-5bc� �f l-46961e513b-5bd� � � � � � � � �E � � � � �D �F � �A� �Q � �A� �Q � �A q �Q � �AB �Q � �A� �Q � �@ � � � �T�� � �T�� � � ̌� �?? �? � �f l-46961e513b-5c6� �f l-46961e513b-5c7� �f l-46961e513b-5c8� �f l-46961e513b-5c9� �f l-46961e513b-5ca� � � � � � � � �E � � � � �D �F � �A� �Q � �A� �Q � �A q �Q � �AB �Q � �Az �Q � �@ � � � �T�� � �T�� � � ތ� �?? �? � �XZY{ � �f l-46961e513b-5d3� �f l-46961e513b-5d4� �f l-46961e513b-5d5� �f l-46961e513b-5d6� �f l-46961e513b-5d7� � � � � � � � �E � � � � �D �F � �Az �Q � �A q �Q � �AB �Q � � �g�� �?? �? � �XY{ � �f l-46961e513b-5e0� �f l-46961e513b-5e1� �f l-46961e513b-5e2� �f l-46961e513b-5e3� �f l-46961e513b-5e4� � � � � � � � �E � � � � �D �F � �A! �Q � �A �Q � �A q �Q � �AB �Q � � � � �?? �? � �X{ � � {DD �
f l-46961e513b-5ec�
f l-46961e513b-5ed�
f l-46961e513b-5ee�
�
E � �
�
D
F �
A!
Q �
g m-46961e513b-5f2�
C �
�
f l-46961e513b-5f4�
�
EH
�
DF
�
AB
Q �
@
�
T��
h��
?
��
XkYmZ �
DDDD �
f l-46961e513b-5f7�
f l-46961e513b-5f8�
f l-46961e513b-5f9�
f l-46961e513b-5fa�
f l-46961e513b-5fb�
�
E
�
D
F
�
A
Q �
AB
Q �
f l-46961e513b-604�
f l-46961e513b-605�
!f l-46961e513b-606�
"f l-46961e513b-607�
#f l-46961e513b-608�
$
!
"
# �
%En
$ �
&D
%F
�
'A
&Q �
(AB
&Q �
)X� �
*
D �
+f l-46961e513b-610�
,f l-46961e513b-611�
-
+
, �
.E
)
*
- �
/D
.F
�
0A
/Q �
1AB
/Q �
2
1 �
3X�� �
4
DD �
5f l-46961e513b-615�
6f l-46961e513b-616�
7f l-46961e513b-617�
8
5
6
7 �
9E
3
4
8 �
:D
9F
�
;A#
:Q �
<A
:Q �
=A�
:Q �
>A
:Q �
?
> �
@g m-46961e513b-61b�
A
@C �
B
A �
Cf l-46961e513b-61d�
D
C �
EEH
B
D �
FDF
E �
GAB
FQ �
H@
G �
I
HT��
J
Ih��
K?
J��
L
ADDDD �
Mf l-46961e513b-620�
Nf l-46961e513b-621�
Of l-46961e513b-622�
Pf l-46961e513b-623�
Qf l-46961e513b-624�
R
M
N
O
P
Q �
SE
L
R �
TD
SF
E �
UA"
TQ �
VAB
TQ �
Wf l-46961e513b-62d�
Xf l-46961e513b-62e�
Yf l-46961e513b-62f�
Zf l-46961e513b-630�
[f l-46961e513b-631�
\
W
X
Y
Z
[ �
]En
L
\ �
^D
]F
E �
_A"
^Q �
`AB
^Q �
a
AD �
bf l-46961e513b-639�
cf l-46961e513b-63a�
d
b
c �
eE
)
a
d �
fD
eF
E �
gA"
fQ �
hAB
fQ �
i
h �
j
ADD �
kf l-46961e513b-63e�
lf l-46961e513b-63f�
mf l-46961e513b-640�
n
k
l
m �
oE
3
j
n �
pD
oF
E �
qA#
pQ �
rA
pQ �
sA�
pQ �
tA�
pQ �
uA
pQ �
v
u �C 5 h�� � ]4
15 44 > "