�
��pugwash

�!N$="C D EF G A Bc d ef g a b"

�b%=0:O%=2*48

�)ݤP(A$)=b%+4*�N$,��A$)-4*(�A$,1)="#")

�� 2,GdDdGdDdGdDdGDEF#

�� 2,GdDdGdGG#AdAD#DdEF#

�� 2,GdDdGGABcgcgc#gc#g

�� 2,GdDD#EedA#AD#DF#GgfB

�� 2,cgGgcgGgCgGgcgfc#

�� 2,cgGgcgcc#dgdgdGAB

�� 2,CcCcEA#EA#FcFcF#cF#c

�� 2,cgAedaGdcgGgcc#dD

�
� 0,""
� 1,ggggedA#BddeA#A#GED
� 1,GGAA#Bdedgggggded
� 1,ggggedA#BddeA#A#AGG
&� 1,dddf#f#afedddddded
0� 1,ggGGggGGggGeedBG
:� 1,ccCCccCCccef#geee
D� 1,BA#BA#BdddBdBEEEEE
N� 1,BGGGAAGGGGGGGGGG
X� 1,ccBBA#BA#AG#G#GGF#F#GG
b� 1,AAG#G#GAGF#FFEED#D#EE
l� 1,CCDD#EGAGccccAGD#E
v� 1,GGGBBdA#AGGGGGGGG
�� 1,CCccCCccCCcAAGEC
�� 1,CCccCCccCCcAAGD#E
�� 1,CCDD#EGAGDDEFFAGG
�� 1,ccccAGD#ECCCCDDDD
�
� 0,""
�
SIZE=5000
�� L% SIZE,U% SIZE,block 20
�� �tnA:M%=�part(L%,0)
�� �THB:V%=�part(U%,O%)
�0�X%=0� M%-L%:U%?X%=(U%?X%-L%?X%)�U%?X%<255:�
��
��play(L%,U%,M%-L%,2)
��play(L%,U%,M%-L%,1)
��
{�}
 
  
*��play(B%,C%,D%,T%)
4�A%,X%,Y%,Z%,O%,W%
>%A%=8:X%=block:Y%=�HI(X%):O%=&FFF1
H#��DRC:�Z%=X%�X%+13:�E%:?Z%=E%:�
R,� 1,1, 0,0,0, 2,1,1, 126,0,0,-126, 126,0
\E%=C%-B%:W%=X%+3:?X%=1
f;�Z%=B%�B%+D%:?X%=1+(Z%�7):?W%=E%?Z%:�O%:�3,?X%,?Z%,T%:�
p�
z 
�5ݤpart(Z%,O%)�A%,B%,C%,D%:��A%,A$:�A%<=0 ��:=Z%-1
�X�B%=1��A$:C%=�P(�A$,B%,2))+O%:�D%=1�A%:?Z%=C%:Z%=Z%+1:�:B%=B%-(�A$,B%+1,1)="#"):�:��
�ݤLO(X%)=X%�255
�ݤHI(X%)=(X%�&FF00)�256
� � �wait
� � K=1 � 1000
� �
� �
�

00000000  0d 01 86 0d dd f2 70 75  67 77 61 73 68 0d 01 90  |......pugwash...|
00000010  21 4e 24 3d 22 43 20 44  20 45 46 20 47 20 41 20  |!N$="C D EF G A |
00000020  42 63 20 64 20 65 66 20  67 20 61 20 62 22 0d 01  |Bc d ef g a b"..|
00000030  9a 10 62 25 3d 30 3a 4f  25 3d 32 2a 34 38 0d 01  |..b%=0:O%=2*48..|
00000040  a4 29 dd a4 50 28 41 24  29 3d 62 25 2b 34 2a a7  |.)..P(A$)=b%+4*.|
00000050  4e 24 2c bd 97 41 24 29  2d 34 2a 28 c2 41 24 2c  |N$,..A$)-4*(.A$,|
00000060  31 29 3d 22 23 22 29 0d  01 ae 19 dc 20 32 2c 47  |1)="#")..... 2,G|
00000070  64 44 64 47 64 44 64 47  64 44 64 47 44 45 46 23  |dDdGdDdGdDdGDEF#|
00000080  0d 01 b8 1b dc 20 32 2c  47 64 44 64 47 64 47 47  |..... 2,GdDdGdGG|
00000090  23 41 64 41 44 23 44 64  45 46 23 0d 01 c2 1a dc  |#AdAD#DdEF#.....|
000000a0  20 32 2c 47 64 44 64 47  47 41 42 63 67 63 67 63  | 2,GdDdGGABcgcgc|
000000b0  23 67 63 23 67 0d 01 cc  1c dc 20 32 2c 47 64 44  |#gc#g..... 2,GdD|
000000c0  44 23 45 65 64 41 23 41  44 23 44 46 23 47 67 66  |D#EedA#AD#DF#Ggf|
000000d0  42 0d 01 d6 19 dc 20 32  2c 63 67 47 67 63 67 47  |B..... 2,cgGgcgG|
000000e0  67 43 67 47 67 63 67 66  63 23 0d 01 e0 19 dc 20  |gCgGgcgfc#..... |
000000f0  32 2c 63 67 47 67 63 67  63 63 23 64 67 64 67 64  |2,cgGgcgcc#dgdgd|
00000100  47 41 42 0d 01 ea 1c dc  20 32 2c 43 63 43 63 45  |GAB..... 2,CcCcE|
00000110  41 23 45 41 23 46 63 46  63 46 23 63 46 23 63 0d  |A#EA#FcFcF#cF#c.|
00000120  01 f4 19 dc 20 32 2c 63  67 41 65 64 61 47 64 63  |.... 2,cgAedaGdc|
00000130  67 47 67 63 63 23 64 44  0d 01 fe 0a dc 20 30 2c  |gGgcc#dD..... 0,|
00000140  22 22 0d 02 08 1b dc 20  31 2c 67 67 67 67 65 64  |""..... 1,gggged|
00000150  41 23 42 64 64 65 41 23  41 23 47 45 44 0d 02 12  |A#BddeA#A#GED...|
00000160  19 dc 20 31 2c 47 47 41  41 23 42 64 65 64 67 67  |.. 1,GGAA#Bdedgg|
00000170  67 67 67 64 65 64 0d 02  1c 1b dc 20 31 2c 67 67  |gggded..... 1,gg|
00000180  67 67 65 64 41 23 42 64  64 65 41 23 41 23 41 47  |ggedA#BddeA#A#AG|
00000190  47 0d 02 26 1a dc 20 31  2c 64 64 64 66 23 66 23  |G..&.. 1,dddf#f#|
000001a0  61 66 65 64 64 64 64 64  64 65 64 0d 02 30 18 dc  |afedddddded..0..|
000001b0  20 31 2c 67 67 47 47 67  67 47 47 67 67 47 65 65  | 1,ggGGggGGggGee|
000001c0  64 42 47 0d 02 3a 19 dc  20 31 2c 63 63 43 43 63  |dBG..:.. 1,ccCCc|
000001d0  63 43 43 63 63 65 66 23  67 65 65 65 0d 02 44 1a  |cCCccef#geee..D.|
000001e0  dc 20 31 2c 42 41 23 42  41 23 42 64 64 64 42 64  |. 1,BA#BA#BdddBd|
000001f0  42 45 45 45 45 45 0d 02  4e 18 dc 20 31 2c 42 47  |BEEEEE..N.. 1,BG|
00000200  47 47 41 41 47 47 47 47  47 47 47 47 47 47 0d 02  |GGAAGGGGGGGGGG..|
00000210  58 1e dc 20 31 2c 63 63  42 42 41 23 42 41 23 41  |X.. 1,ccBBA#BA#A|
00000220  47 23 47 23 47 47 46 23  46 23 47 47 0d 02 62 1d  |G#G#GGF#F#GG..b.|
00000230  dc 20 31 2c 41 41 47 23  47 23 47 41 47 46 23 46  |. 1,AAG#G#GAGF#F|
00000240  46 45 45 44 23 44 23 45  45 0d 02 6c 1a dc 20 31  |FEED#D#EE..l.. 1|
00000250  2c 43 43 44 44 23 45 47  41 47 63 63 63 63 41 47  |,CCDD#EGAGccccAG|
00000260  44 23 45 0d 02 76 19 dc  20 31 2c 47 47 47 42 42  |D#E..v.. 1,GGGBB|
00000270  64 41 23 41 47 47 47 47  47 47 47 47 0d 02 80 18  |dA#AGGGGGGGG....|
00000280  dc 20 31 2c 43 43 63 63  43 43 63 63 43 43 63 41  |. 1,CCccCCccCCcA|
00000290  41 47 45 43 0d 02 8a 19  dc 20 31 2c 43 43 63 63  |AGEC..... 1,CCcc|
000002a0  43 43 63 63 43 43 63 41  41 47 44 23 45 0d 02 94  |CCccCCcAAGD#E...|
000002b0  19 dc 20 31 2c 43 43 44  44 23 45 47 41 47 44 44  |.. 1,CCDD#EGAGDD|
000002c0  45 46 46 41 47 47 0d 02  9e 19 dc 20 31 2c 63 63  |EFFAGG..... 1,cc|
000002d0  63 63 41 47 44 23 45 43  43 43 43 44 44 44 44 0d  |ccAGD#ECCCCDDDD.|
000002e0  02 a8 0a dc 20 30 2c 22  22 0d 02 b2 0d 53 49 5a  |.... 0,""....SIZ|
000002f0  45 3d 35 30 30 30 0d 02  bc 1e de 20 4c 25 20 53  |E=5000..... L% S|
00000300  49 5a 45 2c 55 25 20 53  49 5a 45 2c 62 6c 6f 63  |IZE,U% SIZE,bloc|
00000310  6b 20 32 30 0d 02 c6 19  f7 20 8d 74 6e 41 3a 4d  |k 20..... .tnA:M|
00000320  25 3d a4 70 61 72 74 28  4c 25 2c 30 29 0d 02 d0  |%=.part(L%,0)...|
00000330  1a f7 20 8d 54 48 42 3a  56 25 3d a4 70 61 72 74  |.. .THB:V%=.part|
00000340  28 55 25 2c 4f 25 29 0d  02 da 30 e3 58 25 3d 30  |(U%,O%)...0.X%=0|
00000350  b8 20 4d 25 2d 4c 25 3a  55 25 3f 58 25 3d 28 55  |. M%-L%:U%?X%=(U|
00000360  25 3f 58 25 2d 4c 25 3f  58 25 29 80 55 25 3f 58  |%?X%-L%?X%).U%?X|
00000370  25 3c 32 35 35 3a ed 0d  02 e4 05 f5 0d 02 ee 18  |%<255:..........|
00000380  f2 70 6c 61 79 28 4c 25  2c 55 25 2c 4d 25 2d 4c  |.play(L%,U%,M%-L|
00000390  25 2c 32 29 0d 02 f8 18  f2 70 6c 61 79 28 4c 25  |%,2).....play(L%|
000003a0  2c 55 25 2c 4d 25 2d 4c  25 2c 31 29 0d 03 02 06  |,U%,M%-L%,1)....|
000003b0  fd a3 0d 03 0c 07 7b e0  7d 0d 03 16 05 20 0d 03  |......{.}.... ..|
000003c0  20 05 20 0d 03 2a 17 dd  f2 70 6c 61 79 28 42 25  | . ..*...play(B%|
000003d0  2c 43 25 2c 44 25 2c 54  25 29 0d 03 34 16 ea 41  |,C%,D%,T%)..4..A|
000003e0  25 2c 58 25 2c 59 25 2c  5a 25 2c 4f 25 2c 57 25  |%,X%,Y%,Z%,O%,W%|
000003f0  0d 03 3e 25 41 25 3d 38  3a 58 25 3d 62 6c 6f 63  |..>%A%=8:X%=bloc|
00000400  6b 3a 59 25 3d a4 48 49  28 58 25 29 3a 4f 25 3d  |k:Y%=.HI(X%):O%=|
00000410  26 46 46 46 31 0d 03 48  23 f7 8d 44 52 43 3a e3  |&FFF1..H#..DRC:.|
00000420  5a 25 3d 58 25 b8 58 25  2b 31 33 3a f3 45 25 3a  |Z%=X%.X%+13:.E%:|
00000430  3f 5a 25 3d 45 25 3a ed  0d 03 52 2c dc 20 31 2c  |?Z%=E%:...R,. 1,|
00000440  31 2c 20 30 2c 30 2c 30  2c 20 32 2c 31 2c 31 2c  |1, 0,0,0, 2,1,1,|
00000450  20 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 20 31  | 126,0,0,-126, 1|
00000460  32 36 2c 30 0d 03 5c 1a  45 25 3d 43 25 2d 42 25  |26,0..\.E%=C%-B%|
00000470  3a 57 25 3d 58 25 2b 33  3a 3f 58 25 3d 31 0d 03  |:W%=X%+3:?X%=1..|
00000480  66 3b e3 5a 25 3d 42 25  b8 42 25 2b 44 25 3a 3f  |f;.Z%=B%.B%+D%:?|
00000490  58 25 3d 31 2b 28 5a 25  80 37 29 3a 3f 57 25 3d  |X%=1+(Z%.7):?W%=|
000004a0  45 25 3f 5a 25 3a d6 4f  25 3a d4 33 2c 3f 58 25  |E%?Z%:.O%:.3,?X%|
000004b0  2c 3f 5a 25 2c 54 25 3a  ed 0d 03 70 05 e1 0d 03  |,?Z%,T%:...p....|
000004c0  7a 05 20 0d 03 84 35 dd  a4 70 61 72 74 28 5a 25  |z. ...5..part(Z%|
000004d0  2c 4f 25 29 ea 41 25 2c  42 25 2c 43 25 2c 44 25  |,O%).A%,B%,C%,D%|
000004e0  3a f5 f3 41 25 2c 41 24  3a e7 41 25 3c 3d 30 20  |:..A%,A$:.A%<=0 |
000004f0  fd b9 3a 3d 5a 25 2d 31  0d 03 8e 58 e3 42 25 3d  |..:=Z%-1...X.B%=|
00000500  31 b8 a9 41 24 3a 43 25  3d a4 50 28 c1 41 24 2c  |1..A$:C%=.P(.A$,|
00000510  42 25 2c 32 29 29 2b 4f  25 3a e3 44 25 3d 31 b8  |B%,2))+O%:.D%=1.|
00000520  41 25 3a 3f 5a 25 3d 43  25 3a 5a 25 3d 5a 25 2b  |A%:?Z%=C%:Z%=Z%+|
00000530  31 3a ed 3a 42 25 3d 42  25 2d 28 c1 41 24 2c 42  |1:.:B%=B%-(.A$,B|
00000540  25 2b 31 2c 31 29 3d 22  23 22 29 3a ed 3a fd a3  |%+1,1)="#"):.:..|
00000550  0d 03 98 13 dd a4 4c 4f  28 58 25 29 3d 58 25 80  |......LO(X%)=X%.|
00000560  32 35 35 0d 03 a2 1b dd  a4 48 49 28 58 25 29 3d  |255......HI(X%)=|
00000570  28 58 25 80 26 46 46 30  30 29 81 32 35 36 0d 03  |(X%.&FF00).256..|
00000580  ac 0c 20 dd 20 f2 77 61  69 74 0d 03 b6 11 20 e3  |.. . .wait.... .|
00000590  20 4b 3d 31 20 b8 20 31  30 30 30 0d 03 c0 06 20  | K=1 . 1000.... |
000005a0  ed 0d 03 ca 06 20 e1 0d  ff                       |..... ...|
000005a9