GOOF----LE-8-2.0�H ]� 4 hR� ] g guile� � g define-module*� � � g ice-9� g match� � g filenameS�
f ice-9/match.scm� g exportsS� g match-lambda�
g
match-lambda*� g match-let� g
match-let*� g match-letrec�
� g set-current-module� � � g throw� g match-error� f match� g error� g make-syntax-transformer� � � g slot-ref� g macro� g $sc-dispatch� � � !g any� "!!!! � #g
syntax-object� $g
struct-ref� %g top� &% � 'g ribcage� (g dummy� )g rtd� *g rec� +g n� ,()*+ � -g m-1883f58c-6d8� .-% � /.&&& � 0f l-1883f58c-6dd� 1f l-1883f58c-6de� 2f l-1883f58c-6df� 3f l-1883f58c-6e0� 40123 � 5',/4 � 6' � 7g x� 87 � 9. � :f l-1883f58c-6da� ;: � <'89; � =&56< � >g hygiene� ?> � @#$=? � Ag syntax-violation� BA � CA � Df -source expression failed to match any pattern� Eg slot-set!� F!!!!! � Gg struct-set!� Hg value� I()*+H � Jg m-1883f58c-6e5� KJ% � LK&&&& � Mf l-1883f58c-6ea� Nf l-1883f58c-6eb� Of l-1883f58c-6ec� Pf l-1883f58c-6ed� Qf l-1883f58c-6ee� RMNOPQ � S'ILR � TK � Uf l-1883f58c-6e7� VU � W'8TV � X&S6W � Y#GX? � Zg is-a?� [!!! � \g and� ](*) � ^g m-1883f58c-6f4� _^% � `_&& � af l-1883f58c-6f9� bf l-1883f58c-6fa� cf l-1883f58c-6fb� dabc � e']`d � f_ � gf l-1883f58c-6f6� hg � i'8fh � j&e6i � k#\j? � lg struct?� m#lj? � ng eq?� o#nj? � pg
struct-vtable� q#pj? � rg match-syntax-error� s! � t( � ug m-1883f58c-701� vu% � wv � xf l-1883f58c-706� yx � z'twy � {f l-1883f58c-703� |{ � }'8w| � ~&z6} � #r~? � �f invalid match-syntax-error usage� �#�~? � �� � �g m-1883f58c-708� ��% � �� � �f l-1883f58c-70d� �� � �'t�� � �f l-1883f58c-70a� �� � �'8�� � �&�6� � �#r�? � �f missing match expression� �#��? � ��� � �!! � �g atom� �(� � ��& � �f l-1883f58c-710� �f l-1883f58c-711� ��� � �'��� � �&�6� � �#r�? � �f no match clauses� �#��? � ��� � �g each-any� �g each� �!!�� ��� � ����� �!��� �g let� �g app� �g pat� �g body� �(��� � ��&&& � �f l-1883f58c-715� �f l-1883f58c-716� �f l-1883f58c-717� �f l-1883f58c-718� ����� � �'��� � �&�6� � �#��? � �g v� �#��? � �g
match-next� �#��? � �g set!� �#��? � �g map� �� � �� � �g cons� �g vector� ��� � ����� �!��� �g vec� �(��� � �f l-1883f58c-723� �f l-1883f58c-724� �f l-1883f58c-725� �f l-1883f58c-726� ����� � �'��� � �&�6� � �#��? � �#��? � �g list->vector� �� � �� � �#��? � �#��? � ��� � ��� � �!��� �!Ҍ� �(��� � �f l-1883f58c-72f� �f l-1883f58c-730� �f l-1883f58c-731� �f l-1883f58c-732� ����� � �'��� � �&�6� � �#��? � �#��? � �#��? � �#��? � �g g+s� �(�� � �g m-1883f58c-739� ��% � ��&& � �f l-1883f58c-73e� �f l-1883f58c-73f� �f l-1883f58c-740� ���� � �'��� � �� � �f l-1883f58c-73b� �� � �'8�� � �&�6� � �#�? � �g quote� �#��? � �#�? � ��� � �f no matching pattern� �#��? � �g free-id� �g =>� �&6� � �#��? � ��� � ��! � ��!�� �!��� ��!�� �!��� !���! ��g failure�g rest�(���� ��&&&&&& �f l-1883f58c-745�f l-1883f58c-746�f l-1883f58c-747� f l-1883f58c-748�
f l-1883f58c-749�f l-1883f58c-74a�f l-1883f58c-74b�
�'
�&6� �#�? �g lambda�#? �#�? �g match-one�#? �g match-drop-ids�#? �g begin�#? � ��!��!��!��!��(���� � �&&&&& �!f l-1883f58c-754�"f l-1883f58c-755�#f l-1883f58c-756�$f l-1883f58c-757�%f l-1883f58c-758�&f l-1883f58c-759�'!"#$%& �(' ' �)&(6� �*#�)? �+#�)? �,#)? �-+, �.!���/!!.!!!! �0g match-check-ellipse�1g p�2g q�3g r�4g sk�5g fk�6g i�7(�123�456 �8g m-1883f58c-760�98% �:9&&&&&&&& �;f l-1883f58c-765�<f l-1883f58c-766�=f l-1883f58c-767�>f l-1883f58c-768�?f l-1883f58c-769�@f l-1883f58c-76a�Af l-1883f58c-76b�Bf l-1883f58c-76c�Cf l-1883f58c-76d�D;<=>?@ABC �E'7:D �F9 �Gf l-1883f58c-762�HG �I'8FH �J&E6I �K#0J? �Lg match-extract-vars�M#LJ? �Ng match-gen-ellipses�O#NJ? �Pg match-two�Q#PJ? �R(7 �S9& �Tf l-1883f58c-778�Uf l-1883f58c-779�VTU �W'RSV �X&W6I �Y#PX? �Z!!!�!! �[g if�\(��456 �]g m-1883f58c-77c�^]% �_^&&&&& �`f l-1883f58c-781�af l-1883f58c-782�bf l-1883f58c-783�cf l-1883f58c-784�df l-1883f58c-785�ef l-1883f58c-786�f`abcde �g'\_f �h^ �if l-1883f58c-77e�ji �k'8hj �l&g6k �m#[l? �ng null?�o#nl? �pg append�qp �rp �s&6k �t#�s? �u�t �vu! �w!!v!�!! �x(�1�456 �y^&&&&&& �zf l-1883f58c-78f�{f l-1883f58c-790�|f l-1883f58c-791�}f l-1883f58c-792�~f l-1883f58c-793�f l-1883f58c-794��f l-1883f58c-795��z{|}~� ��'xy� ��&�6k ��#[�? ��g equal?��#��? ��#��? ��g
quasiquote��#�s? ���� ���! ���!���!����!����g match-quasiquote��(�17 ��^&&& ��f l-1883f58c-79f��f l-1883f58c-7a0��f l-1883f58c-7a1��f l-1883f58c-7a2������ ��'��� ��&�6k ��#��? ��#\s? ���� ��� ��!!�!�!! ��!���������!!�!!!! ��(�12�456 ��^&&&&&&& ��f l-1883f58c-7b6��f l-1883f58c-7b7��f l-1883f58c-7b8��f l-1883f58c-7b9��f l-1883f58c-7ba��f l-1883f58c-7bb��f l-1883f58c-7bc��f l-1883f58c-7bd���������� ��'��� ��&�6k ��#�? ��#\�? ��g or��#�s? ���� ��� ��!!�!!!! ���! ���!���!����!����f l-1883f58c-7d5��f l-1883f58c-7d6��f l-1883f58c-7d7��f l-1883f58c-7d8������ ��'��� ��&�6k ��#�? �������!!�!!!! ��f l-1883f58c-7de��f l-1883f58c-7df��f l-1883f58c-7e0��f l-1883f58c-7e1��f l-1883f58c-7e2��f l-1883f58c-7e3��f l-1883f58c-7e4��������� ��'xy� ��&�6k ��#L�? ��#��? ��g match-gen-or��#��? ��g not��#�s? ���� ���! ��!!�!�!! ��f l-1883f58c-7ef��f l-1883f58c-7f0��f l-1883f58c-7f1��f l-1883f58c-7f2��f l-1883f58c-7f3��f l-1883f58c-7f4��f l-1883f58c-7f5��������� ��'xy� ��&�6k ��#�? ��#�? ��g get!��#�s? ���� ���! ��!!���!! ��g getter��g g��g s��(����456 ��f l-1883f58c-7ff��f l-1883f58c-800��f l-1883f58c-801��f l-1883f58c-802��f l-1883f58c-803��f l-1883f58c-804��f l-1883f58c-805��f l-1883f58c-806���������� ��'��� ��&�6k ��#��? ��#�? ��#�s? ���� ���! ��!� ��!!���!! ��g setter��(����456 ��f l-1883f58c-811� f l-1883f58c-812�f l-1883f58c-813�f l-1883f58c-814�f l-1883f58c-815�f l-1883f58c-816�f l-1883f58c-817�f l-1883f58c-818�� �'�� � &6k �
#� ? �# ? �#7 ? �
�g ?�#s? �� ����!!!!!! �g pred�(�1�456 �f l-1883f58c-824�f l-1883f58c-825�f l-1883f58c-826�f l-1883f58c-827�f l-1883f58c-828�f l-1883f58c-829�f l-1883f58c-82a�f l-1883f58c-82b� �'� �&6k � #[? �!#? �"#\? �#g =�$##s? �%�$ �&%!! �'&!��(!'��)!(��*g proc�+(�*17 �,^&&&& �-f l-1883f58c-835�.f l-1883f58c-836�/f l-1883f58c-837�0f l-1883f58c-838�1f l-1883f58c-839�2-./01 �3'+,2 �4&36k �5#�4? �6g w�7#64? �8#4? �9g ___�:#9s? �;�: �<;!��=!<��>!!=!!!! �?(�13�456 �@f l-1883f58c-840�Af l-1883f58c-841�Bf l-1883f58c-842�Cf l-1883f58c-843�Df l-1883f58c-844�Ef l-1883f58c-845�Ff l-1883f58c-846�Gf l-1883f58c-847�H@ABCDEFG �I'?�H �J&I6k �K#LJ? �L#NJ? �M!!s!!!! �Nf l-1883f58c-851�Of l-1883f58c-852�Pf l-1883f58c-853�Qf l-1883f58c-854�Rf l-1883f58c-855�Sf l-1883f58c-856�Tf l-1883f58c-857�UNOPQRST �V'xyU �W&V6k �X#[W? �Y#\W? �Zg pair?�[#ZW? �\#nW? �]g cdr�^#]W? �_#�W? �`#6W? �ag car�b#aW? �c#W? �dg set-car!�e#dW? �fg ***�g#fs? �h�g �i!h! �j!!i!!!! �kf l-1883f58c-860�lf l-1883f58c-861�mf l-1883f58c-862�nf l-1883f58c-863�of l-1883f58c-864�pf l-1883f58c-865�qf l-1883f58c-866�rf l-1883f58c-867�sklmnopqr �t'��s �u&t6k �v#Lu? �wg match-gen-search�x#wu? �yh!��z!y��{!!z!!!! �|f l-1883f58c-871�}f l-1883f58c-872�~f l-1883f58c-873�f l-1883f58c-874��f l-1883f58c-875��f l-1883f58c-876��f l-1883f58c-877��f l-1883f58c-878��|}~���� ��'��� ��&�6k ��#r�? ��f invalid use of ***��#��? ��#f�? ��g ..1��#�s? ���� ��!� ��!!�!!!! ��f l-1883f58c-882��f l-1883f58c-883��f l-1883f58c-884��f l-1883f58c-885��f l-1883f58c-886��f l-1883f58c-887��f l-1883f58c-888��������� ��'xy� ��&�6k ��#[�? ��#Z�? ��#�? ��#9�? ��� ��g $��#�s? ���� �������!!�!!!! ��(�*1�456 ��f l-1883f58c-891��f l-1883f58c-892��f l-1883f58c-893��f l-1883f58c-894��f l-1883f58c-895��f l-1883f58c-896��f l-1883f58c-897��f l-1883f58c-898���������� ��'��� ��&�6k ��#[�? ��#Z�? ��g match-record-refs��#��? ��#
�? ��!!�!!!! ��f l-1883f58c-8a3��f l-1883f58c-8a4��f l-1883f58c-8a5��f l-1883f58c-8a6��f l-1883f58c-8a7��f l-1883f58c-8a8��f l-1883f58c-8a9��f l-1883f58c-8aa���������� ��'��� ��&�6k ��#[�? ��#Z�? ��#��? ��#6�? ��#a�? ��#7�? ��#]�? ��#�? ��#d�? ��g set-cdr!��#��? �������!̌��!͌��g match-vector��(�1�7 ��f l-1883f58c-8b4��f l-1883f58c-8b5��f l-1883f58c-8b6��f l-1883f58c-8b7��f l-1883f58c-8b8������� ��'�,� ��&�6k ��#��? ��#
�? ��g _��#�s? ���� ��!!�!�!! ��!!!!�!� ��g
let-syntax��g id��(�7�45� ��f l-1883f58c-8ce��f l-1883f58c-8cf��f l-1883f58c-8d0��f l-1883f58c-8d1��f l-1883f58c-8d2��f l-1883f58c-8d3��f l-1883f58c-8d4��������� ��'�y� ��&�6k ��#��? ��g new-sym?��#��? ��g syntax-rules��#��? ��g sk2��#��? ��g fk2��#��? ���� ��� ��g y��#��? ������ ���� ��� ��g random-sym-to-match��#��? ��#��? � #[�? �#��? �g unquote�g m-1883f58c-8e1�% � �f l-1883f58c-8e3� �'8 � &6 �
# ? ��
�! �
!!!!!! �&&&&&& �f l-1883f58c-8e6�f l-1883f58c-8e7�f l-1883f58c-8e8�f l-1883f58c-8e9�f l-1883f58c-8ea�f l-1883f58c-8eb�f l-1883f58c-8ec� �'x �&6 �#? �g unquote-splicing�# ? �� �! �!��!!!!!! � (�1�456 �!&&&&&&& �"f l-1883f58c-8f5�#f l-1883f58c-8f6�$f l-1883f58c-8f7�%f l-1883f58c-8f8�&f l-1883f58c-8f9�'f l-1883f58c-8fa�(f l-1883f58c-8fb�)f l-1883f58c-8fc�*"#$%&'() �+' !* �,&+6 �-#[,? �.#Z,? �/#,? �0g tmp�1#0,? �2#�,? �3#� ? �4�3 �54! �6!.��7!6��857��9!8��:!9��;g depth�<(�1�456; �=f l-1883f58c-906�>f l-1883f58c-907�?f l-1883f58c-908�@f l-1883f58c-909�Af l-1883f58c-90a�Bf l-1883f58c-90b�Cf l-1883f58c-90c�Df l-1883f58c-90d�E=>?@ABCD �F'<!E �G&F6 �H#�G? �I#G? �J!7��KJ��L!K��M!L��N(�1�4567; �O&&&&&&&& �Pf l-1883f58c-917�Qf l-1883f58c-918�Rf l-1883f58c-919�Sf l-1883f58c-91a�Tf l-1883f58c-91b�Uf l-1883f58c-91c�Vf l-1883f58c-91d�Wf l-1883f58c-91e�Xf l-1883f58c-91f�YPQRSTUVWX �Z'NOY �[&Z6 �\#�[? �]J��^!]��_!^��`f l-1883f58c-92a�af l-1883f58c-92b�bf l-1883f58c-92c�cf l-1883f58c-92d�df l-1883f58c-92e�ef l-1883f58c-92f�ff l-1883f58c-930�gf l-1883f58c-931�hf l-1883f58c-932�i`abcdefgh �j'NOi �k&j6 �l#�k? �m�7��n!m��o!n��p(�12�456; �qf l-1883f58c-93d�rf l-1883f58c-93e�sf l-1883f58c-93f�tf l-1883f58c-940�uf l-1883f58c-941�vf l-1883f58c-942�wf l-1883f58c-943�xf l-1883f58c-944�yf l-1883f58c-945�zqrstuvwxy �{'pOz �|&{6 �}#[|? �~#Z|? �#�|? ��#6|? ��#a|? ��#7|? ��#]|? ��#�|? ��g match-quasiquote-step��#�|? ���7���!����!����g elt��(���456; ��f l-1883f58c-950��f l-1883f58c-951��f l-1883f58c-952��f l-1883f58c-953��f l-1883f58c-954��f l-1883f58c-955��f l-1883f58c-956��f l-1883f58c-957���������� ��'�!� ��&�6 ��#[�? ��g vector?��#��? ��#��? ��g ls��#��? ��g vector->list��#��? ��#��? ��!J���!����(�7�456; ��f l-1883f58c-962��f l-1883f58c-963��f l-1883f58c-964��f l-1883f58c-965��f l-1883f58c-966��f l-1883f58c-967��f l-1883f58c-968��f l-1883f58c-969���������� ��'�!� ��&�6 ��#�? ��#��? ��!!!!!!!! ��(72�45;6 ��g m-1883f58c-972���% ���&&&&&&& ��f l-1883f58c-977��f l-1883f58c-978��f l-1883f58c-979��f l-1883f58c-97a��f l-1883f58c-97b��f l-1883f58c-97c��f l-1883f58c-97d��f l-1883f58c-97e���������� ��'��� ��� ��f l-1883f58c-974��� ��'8�� ��&�6� ��#��? ��!����g match-tuck-ids��!!� �������!Ȍ��g match-drop-first-arg���� ��!!!!�!�� ��g id-ls��(�1�456�� ��g m-1883f58c-9ae���% ���&&&&&&&& ��f l-1883f58c-9b3��f l-1883f58c-9b4��f l-1883f58c-9b5��f l-1883f58c-9b6��f l-1883f58c-9b7��f l-1883f58c-9b8��f l-1883f58c-9b9��f l-1883f58c-9ba��f l-1883f58c-9bb����������� ��'��� ��� ��f l-1883f58c-9b0��� ��'8�� ��&�6� ��#��? ��#��? ��#�? ��g match-gen-or-step��#��? ��#�? ��6���!茤�!錤�s!���!댤�!쌤�g m-1883f58c-9cb���% ���&&& ��f l-1883f58c-9dd��f l-1883f58c-9de��f l-1883f58c-9df��f l-1883f58c-9e0������ ��'��� ��� ��f l-1883f58c-9cd��� ��'8�� ��&�6� ��#�? ���&&&&&&& ��f l-1883f58c-9e6��f l-1883f58c-9e7� f l-1883f58c-9e8�f l-1883f58c-9e9�f l-1883f58c-9ea�f l-1883f58c-9eb�f l-1883f58c-9ec�f l-1883f58c-9ed��� �'�� �&6� � #�? �
#�? �#? �#�? �
#? �
�!!!!�!!� �g match-check-identifier�g m-1883f58c-9f6�% �&&&&&&&& �f l-1883f58c-9fb�f l-1883f58c-9fc�f l-1883f58c-9fd�f l-1883f58c-9fe�f l-1883f58c-9ff�f l-1883f58c-a00�f l-1883f58c-a01�f l-1883f58c-a02�f l-1883f58c-a03� �'� � � f l-1883f58c-9f8�! �"'8! �#&6" �$##? �%#�#? �&#[#? �'g list?�(#'#? �)g loop�*#)#? �+#�#? �,#�#? �-, �.- �/g cond�0#/#? �1#n#? �21+ �3g reverse�4#3#? �5#Z#? �65+ �7#6#? �8#a#? �98+ �:79 �;: �<##? �=#d#? �>=+ �?9> �@##? �A#]#? �BA+ �C#�#? �Dg else�E#D#? �F!!!!!�!!� �Gg match-verify-no-ellipses�H(�13�456��
�I&&&&&&&&&
�Jf l-1883f58c-a15�Kf l-1883f58c-a16�Lf l-1883f58c-a17�Mf l-1883f58c-a18�Nf l-1883f58c-a19�Of l-1883f58c-a1a�Pf l-1883f58c-a1b�Qf l-1883f58c-a1c�Rf l-1883f58c-a1d�Sf l-1883f58c-a1e�TJKLMNOPQRS
�U'HIT �V&U6" �W#GV? �Xg let*�Y#XV? �Zg tail-len�[#ZV? �\g length�]#\V? �^#�V? �_#�V? �`g len�a#`V? �b#\V? �c#'V? �dc_ �e]_ �fbde �gaf �hg �i#[V? �j#�V? �k#�V? �lka �mg <�n#mV? �ona[ �pjlo �q#�V? �r#)V? �s__ �t#+V? �uta �v^ �wv �x#/V? �y##V? �zyt[ �{#3V? �|#V? �}#V? �~}} �#ZV? ��_ ��#6V? ��#aV? ���_ ���� ��� ��#dV? ���_ ���� ��#V? ��#]V? ���_ ��g -��#�V? ��#V? ���t� ��#�V? ��#DV? ��!�! ��(7�4 ��g m-1883f58c-a2f���% ���&&& ��f l-1883f58c-a34��f l-1883f58c-a35��f l-1883f58c-a36��f l-1883f58c-a37������ ��'��� ��� ��f l-1883f58c-a31��� ��'8�� ��&�6� ��#0�? ��#r�? ��f 3multiple ellipse patterns not allowed at same level��#��? ���� ��#G�? ��!! ��(74 ���&& ��f l-1883f58c-a42��f l-1883f58c-a43��f l-1883f58c-a44����� ��'��� ��&�6� ��#r�? ��f %dotted tail not allowed after ellipse��#��? ��!!!!!!!!� ��g letrec��(�12�456��
��g m-1883f58c-a48���% ���&&&&&&&&&
��f l-1883f58c-a4d��f l-1883f58c-a4e��f l-1883f58c-a4f��f l-1883f58c-a50��f l-1883f58c-a51��f l-1883f58c-a52��f l-1883f58c-a53��f l-1883f58c-a54��f l-1883f58c-a55��f l-1883f58c-a56������������
��'��� ��� ��f l-1883f58c-a4a��� ��'8�� ��&�6� ��#��? ��g try��#��? ��#�? ��#6�? ��g fail��#��? ��#�? ��#��? ��#��? ��#3�? ��g next��#��? ��#[�? ��#��? ��#Z�? ���� ���� ��� ��g u��#��? ��#a�? ���� ���� ��� ��#d�? ���� ���� ��#�? ��#��? ��g lp��#��? ��#��? ��#]�? ���� ���� ��� ���� ���� ���� ���� ���� ��� ��#��? ��� ��� ���!���!����!����!����!����g pats��(�+�127 � g m-1883f58c-a6b� % �&&&&&& �f l-1883f58c-a70�f l-1883f58c-a71�f l-1883f58c-a72�f l-1883f58c-a73�f l-1883f58c-a74�f l-1883f58c-a75� f l-1883f58c-a76�
�'�
� �
f l-1883f58c-a6d�
�'8 �&6 �#0? �g match-gen-vector-ellipses�#? �g match-vector-two�#? �&6 �#9? �� �! �!!!!!!! �(�+�1456 �&&&&&&& �f l-1883f58c-a7f�f l-1883f58c-a80�f l-1883f58c-a81� f l-1883f58c-a82�!f l-1883f58c-a83�"f l-1883f58c-a84�#f l-1883f58c-a85�$f l-1883f58c-a86�% !"#$ �&'% �'&&6 �(#'? �)& �*f l-1883f58c-a90�+f l-1883f58c-a91�,*+ �-'R), �.&-6 �/#.? �0!!!�!!! �1g index�2(�+�1456 �3g m-1883f58c-a94�43% �54&&&&&&& �6f l-1883f58c-a99�7f l-1883f58c-a9a�8f l-1883f58c-a9b�9f l-1883f58c-a9c�:f l-1883f58c-a9d�;f l-1883f58c-a9e�<f l-1883f58c-a9f�=f l-1883f58c-aa0�>6789:;<= �?'25> �@4 �Af l-1883f58c-a96�BA �C'8@B �D&?6C �E#[D? �F#�D? �G#�D? �H#`D? �Ig
vector-length�J#ID? �K##D? �Lg match-vector-step�M#LD? �Ng list�O���P!O��Q!P��R!Q��S4&&&&&& �Tf l-1883f58c-aac�Uf l-1883f58c-aad�Vf l-1883f58c-aae�Wf l-1883f58c-aaf�Xf l-1883f58c-ab0�Yf l-1883f58c-ab1�Zf l-1883f58c-ab2�[TUVWXYZ �\'�S[ �]&\6C �^#�]? �_g +�`#_]? �a#]? �ba �c!!�!! �d!!�!!! �e(��1456 �fg m-1883f58c-abb�gf% �hg&&&&&&& �if l-1883f58c-acc�jf l-1883f58c-acd�kf l-1883f58c-ace�lf l-1883f58c-acf�mf l-1883f58c-ad0�nf l-1883f58c-ad1�of l-1883f58c-ad2�pf l-1883f58c-ad3�qijklmnop �r'ehq �sg �tf l-1883f58c-abd�ut �v'8su �w&r6v �x#�w? �y#6w? �zg
vector-ref�{#zw? �|#w? �}g vector-set!�~#}w? �#Lw? ��!!!�!!!! ��(�+�11456 ��g m-1883f58c-adc���% ���&&&&&&&& ��f l-1883f58c-ae1��f l-1883f58c-ae2��f l-1883f58c-ae3��f l-1883f58c-ae4��f l-1883f58c-ae5��f l-1883f58c-ae6��f l-1883f58c-ae7��f l-1883f58c-ae8��f l-1883f58c-ae9����������� ��'��� ��� ��f l-1883f58c-ade��� ��'8�� ��&�6� ��#[�? ��#��? ��#��? ��#`�? ��#I�? ��g >=��#��? ��#L�? ��g match-vector-tail��#��? ��(�1+`456 ��g m-1883f58c-af5���% ���&&&&&&& ��f l-1883f58c-afa��f l-1883f58c-afb��f l-1883f58c-afc��f l-1883f58c-afd��f l-1883f58c-afe��f l-1883f58c-aff��f l-1883f58c-b00��f l-1883f58c-b01���������� ��'��� ��� ��f l-1883f58c-af7��� ��'8�� ��&�6� ��#L�? ��g match-vector-tail-two��#��? ��(�1+`456��
��g m-1883f58c-b0a���% ���&&&&&&&&&
��f l-1883f58c-b0f��f l-1883f58c-b10��f l-1883f58c-b11��f l-1883f58c-b12��f l-1883f58c-b13��f l-1883f58c-b14��f l-1883f58c-b15��f l-1883f58c-b16��f l-1883f58c-b17��f l-1883f58c-b18������������
��'��� ��� ��f l-1883f58c-b0c��� ��'8�� ��&�6� ��#��? ��#)�? ��g j��#��? ��#��? ��� ��� ��#[�? ��#��? ��#3�? ��#6�? ��#z�? ��� ��#�? ��g
vetor-set!��#��? ��#�? ��#_�? ��#�? ����� ��#��? ��!!!!�!!!! ��(�*+12�456
��g m-1883f58c-b29���% ���&&&&&&&&&
��f l-1883f58c-b2e��f l-1883f58c-b2f��f l-1883f58c-b30��f l-1883f58c-b31��f l-1883f58c-b32��f l-1883f58c-b33��f l-1883f58c-b34��f l-1883f58c-b35��f l-1883f58c-b36��f l-1883f58c-b37������������
��'��� ��� ��f l-1883f58c-b2b��� ��'8�� ��&�6� ��#��? ��#6�? ��#�? ��#�? ��#E�? ��#��? ��#_�? ��#�? ��� ��!!!!!�!! ��g m-1883f58c-b54� �% � �f l-1883f58c-b56� �'8 �&6 �#? �� ���� !��
! ��(17 � &&& �
f l-1883f58c-b59�f l-1883f58c-b5a�f l-1883f58c-b5b�f l-1883f58c-b5c�
�' �&6 �#L? �#�? �� ����!��!��(*17 �f l-1883f58c-b62�f l-1883f58c-b63�f l-1883f58c-b64�f l-1883f58c-b65� � ' �!& 6 �"#L!? �###? �$�# �%$!! �&%!��'!&��((*17 �)f l-1883f58c-b6b�*f l-1883f58c-b6c�+f l-1883f58c-b6d�,f l-1883f58c-b6e�-)*+, �.'(- �/&.6 �0#L/? �1#�? �2�1 �32! �4!3�!! �5#�? �6�5 �76! �8!7!!! �9g match-extract-quasiquote-vars�:g k�;(7:6� �< &&&& �=f l-1883f58c-b80�>f l-1883f58c-b81�?f l-1883f58c-b82�@f l-1883f58c-b83�Af l-1883f58c-b84�B=>?@A �C';<B �D&C6 �E#9D? �F#D? �GF �HG �I#\? �J�I �KJ!��LK!��M!L��N(17 �O && �Pf l-1883f58c-b8b�Qf l-1883f58c-b8c�Rf l-1883f58c-b8d�SPQR �T'NOS �U&T6 �V#LU? �W#�? �X�W �YX!��ZY!��[!Z��\f l-1883f58c-b92�]f l-1883f58c-b93�^f l-1883f58c-b94�_\]^ �`'NO_ �a&`6 �b#La? �c#�? �d�c �ed!��fe!��g!f��hf l-1883f58c-b99�if l-1883f58c-b9a�jf l-1883f58c-b9b�khij �l'NOk �m&l6 �n#Lm? �o!.!!! �p(123:6� �q &&&&&& �rf l-1883f58c-ba0�sf l-1883f58c-ba1�tf l-1883f58c-ba2�uf l-1883f58c-ba3�vf l-1883f58c-ba4�wf l-1883f58c-ba5�xf l-1883f58c-ba6�yrstuvwx �z'pqy �{&z6 �|#0{? �}#L{? �~g match-extract-vars-step�#~{? ��!�!!! ��(12:6� �� &&&&& ��f l-1883f58c-baf��f l-1883f58c-bb0��f l-1883f58c-bb1��f l-1883f58c-bb2��f l-1883f58c-bb3��f l-1883f58c-bb4�������� ��'��� ��&�6 ��#L�? ��#~�? ���!���!����f l-1883f58c-bbc��f l-1883f58c-bbd��f l-1883f58c-bbe����� ��'NO� ��&�6 ��#L�? ��#�? ���� ��!��!! ��#9? ���� ��!��!! ��#f? ���� ��!��!! ��#�? ���� ��!��!! ��!!��! ��(1:6� ��f l-1883f58c-bec��f l-1883f58c-bed��f l-1883f58c-bee��f l-1883f58c-bef��f l-1883f58c-bf0������� ��'�<� ��&�6 ��#��? ��#��? ��#��? ��#4�? ��#5�? ���� ��� ��#!�? ������ ���� ��� ��#��? ��g p-ls��#��? ��� ��!!!!!� ��g v2��g v2-ls��(1:6��� ��g m-1883f58c-bf9���% ���&&&&&& ��f l-1883f58c-bfe��f l-1883f58c-bff��f l-1883f58c-c00��f l-1883f58c-c01��f l-1883f58c-c02��f l-1883f58c-c03��f l-1883f58c-c04��������� ��'��� ��� ��f l-1883f58c-bfb��� ��'8�� ��&�6� ��#L�? ��g m-1883f58c-c0f���% ��� ��f l-1883f58c-c11��� ��'8�� ��&6� ��#��? ���� ���! ��!�!!!! ��g d��(7:6�� ���&&&&& ��f l-1883f58c-c14��f l-1883f58c-c15��f l-1883f58c-c16��f l-1883f58c-c17��f l-1883f58c-c18��f l-1883f58c-c19�������� ��'��� ��&�6� ��#9�? ��#�? ��#�? ���� ���! ��!�!!!! ��f l-1883f58c-c21��f l-1883f58c-c22��f l-1883f58c-c23��f l-1883f58c-c24��f l-1883f58c-c25��f l-1883f58c-c26�������� ��'��� ��&�6� ��#9�? ��#�? ��#�? ���� ���! ��� ��� ��!�!!!� � �&&&& �f l-1883f58c-c2e�f l-1883f58c-c2f�f l-1883f58c-c30�f l-1883f58c-c31�f l-1883f58c-c32� �'; �&6� � #L? �
�!��!�!!!
�f l-1883f58c-c39�
f l-1883f58c-c3a�f l-1883f58c-c3b�f l-1883f58c-c3c�f l-1883f58c-c3d�f l-1883f58c-c3e�
�'�� �&6� �#9? �!�!!!
�(7�:6�� ��&&&&&& �f l-1883f58c-c46�f l-1883f58c-c47�f l-1883f58c-c48�f l-1883f58c-c49�f l-1883f58c-c4a�f l-1883f58c-c4b�f l-1883f58c-c4c� �!' �"&!6� �##9"? �$g "match-extract-quasiquote-vars-step�%#$"? �&!�!!!
�'f l-1883f58c-c55�(f l-1883f58c-c56�)f l-1883f58c-c57�*f l-1883f58c-c58�+f l-1883f58c-c59�,f l-1883f58c-c5a�-'()*+, �.'��- �/&.6� �0#9/? �1!!�!!
�2!!!!!!� �3(7:6���� �4g m-1883f58c-c70�54% �65&&&&&&& �7f l-1883f58c-c75�8f l-1883f58c-c76�9f l-1883f58c-c77�:f l-1883f58c-c78�;f l-1883f58c-c79�<f l-1883f58c-c7a�=f l-1883f58c-c7b�>f l-1883f58c-c7c�?789:;<=> �@'36? �A5 �Bf l-1883f58c-c72�CB �D'8AC �E&@6D �F#9E? �Gg pattern�H(G� �Ig m-1883f58c-c88�JI% �KJ&& �Lf l-1883f58c-c8d�Mf l-1883f58c-c8e�Nf l-1883f58c-c8f�OLMN �P'HKO �QJ �Rf l-1883f58c-c8a�SR �T'8QS �U&P6T �V#U? �Wg expr�X#WU? �YX �Z#U? �[g m-1883f58c-c95�\[% �]\&& �^f l-1883f58c-c9a�_f l-1883f58c-c9b�`f l-1883f58c-c9c�a^_` �b'H]a �c\ �df l-1883f58c-c97�ed �f'8ce �g&b6f �h#g? �i#Wg? �j#g? �k�!��l!k��mg match-let/helper�ng var�o(nH� �pg m-1883f58c-ca2�qp% �rq&&& �sf l-1883f58c-ca7�tf l-1883f58c-ca8�uf l-1883f58c-ca9�vf l-1883f58c-caa�wstuv �x'orw �yq �zf l-1883f58c-ca4�{z �|'8y{ �}&x6| �~#m}? �#�}? ��!l���g match-named-let��g init��()n�� ��q&&&& ��f l-1883f58c-cb2��f l-1883f58c-cb3��f l-1883f58c-cb4��f l-1883f58c-cb5��f l-1883f58c-cb6������� ��'��� ��&�6| ��#��? ��g m-1883f58c-cbe���% ���&&& ��f l-1883f58c-cc3��f l-1883f58c-cc4��f l-1883f58c-cc5��f l-1883f58c-cc6������ ��'o�� ��� ��f l-1883f58c-cc0��� ��'8�� ��&�6� ��#m�? ��#��? ��!������������!����!��������������!����!����(�nW�0� ��g m-1883f58c-ccd���% ���&&&&&& ��f l-1883f58c-cdf��f l-1883f58c-ce0��f l-1883f58c-ce1��f l-1883f58c-ce2��f l-1883f58c-ce3��f l-1883f58c-ce4��f l-1883f58c-ce5��������� ��'��� ��� ��f l-1883f58c-ccf��� ��'8�� ��&�6� ��#�? ���! ���!����!�������������!����!����g a��g b��(��1��W� ���&&&&&&&& ��f l-1883f58c-cf2��f l-1883f58c-cf3��f l-1883f58c-cf4��f l-1883f58c-cf5��f l-1883f58c-cf6��f l-1883f58c-cf7��f l-1883f58c-cf8��f l-1883f58c-cf9��f l-1883f58c-cfa����������� ��'��� ��&�6� ��#m�? ��#0�? ��� ���! ���!����!���������!،��!ٌ��(��1�W� ���&&&&&&& ��f l-1883f58c-d07��f l-1883f58c-d08��f l-1883f58c-d09��f l-1883f58c-d0a��f l-1883f58c-d0b��f l-1883f58c-d0c��f l-1883f58c-d0d��f l-1883f58c-d0e���������� ��'��� ��&�6� ��#m�? ��#0�? ��� ���!����댤��쌤�!팤�!�f l-1883f58c-d1b��f l-1883f58c-d1c��f l-1883f58c-d1d��f l-1883f58c-d1e��f l-1883f58c-d1f��f l-1883f58c-d20��f l-1883f58c-d21��f l-1883f58c-d22���������� ��'��� ��&�6� ��#m�? ���[ �������!����!��� ()�Wn� �g m-1883f58c-d2d�% �&&&&& �f l-1883f58c-d32�f l-1883f58c-d33�f l-1883f58c-d34�f l-1883f58c-d35�f l-1883f58c-d36� f l-1883f58c-d37�
�'
� �
f l-1883f58c-d2f�
�'8 �&6 �#�? �#? �!쌤!��()��W� �&&&&&& �f l-1883f58c-d43�f l-1883f58c-d44�f l-1883f58c-d45�f l-1883f58c-d46�f l-1883f58c-d47�f l-1883f58c-d48�f l-1883f58c-d49� �' � &6 �!#� ? �"#0 ? �#" �$!���%(� �&g m-1883f58c-d52�'&% �('& �)f l-1883f58c-d57�*f l-1883f58c-d58�+)* �,'%(+ �-' �.f l-1883f58c-d54�/. �0'8-/ �1&,60 �2#1? �3!댤4(�W� �5'&&&& �6f l-1883f58c-d5c�7f l-1883f58c-d5d�8f l-1883f58c-d5e�9f l-1883f58c-d5f�:f l-1883f58c-d60�;6789: �<'45; �=&<60 �>#=? �?#=? �@!�!! �A!�!! �Bg success-k�Cg failure-k�D(�BC �Eg m-1883f58c-d66�FE% �GF&&& �Hf l-1883f58c-d7f�If l-1883f58c-d80�Jf l-1883f58c-d81�Kf l-1883f58c-d82�LHIJK �M'DGL �NF �Of l-1883f58c-d68�PO �Q'8NP �R&M6Q �S#�R? �Tg ellipse?�U#TR? �V#�R? �Wg foo�X#WR? �Y#4R? �Z#5R? �[YZ �\Y �]g other�^#]R? �_U^YZ �`_Z �a` �b#�R? �c#�R? �dg c�e#dR? �fbce �g(7BC �hg m-1883f58c-d87�ih% �ji&&& �kf l-1883f58c-da0�lf l-1883f58c-da1�mf l-1883f58c-da2�nf l-1883f58c-da3�oklmn �p'gjo �qi �rf l-1883f58c-d89�sr �t'8qs �u&p6t �v#�u? �wg sym?�x#wu? �y#�u? �z#4u? �{#5u? �|z{ �}z �~#�u? �x~z{ ��{ ��� ��g abracadabra��#�u? �C 5 hp� a ]4
5 4 > "