0000: 5c 20 72 65 61 64 61 62 6c 65 20 77 75 72 73 74 \ readable wurst
0010: 6b 65 73 73 65 6c 20 2d 20 36 34 20 62 69 74 20 kessel - 64 bit
0020: 6f 6e 6c 79 0a 0a 38 20 63 65 6c 6c 73 20 43 6f only..8 cells Co
0030: 6e 73 74 61 6e 74 20 73 74 61 74 65 23 0a 0a 73 nstant state#..s
0040: 74 61 74 65 23 20 62 75 66 66 65 72 3a 20 77 75 tate# buffer: wu
0050: 72 73 74 2d 73 6f 75 72 63 65 0a 73 74 61 74 65 rst-source.state
0060: 23 20 62 75 66 66 65 72 3a 20 77 75 72 73 74 2d # buffer: wurst-
0070: 73 74 61 74 65 0a 73 74 61 74 65 23 20 62 75 66 state.state# buf
0080: 66 65 72 3a 20 6e 65 78 74 73 74 61 74 65 0a 73 fer: nextstate.s
0090: 74 61 74 65 23 20 38 20 2a 20 62 75 66 66 65 72 tate# 8 * buffer
00a0: 3a 20 6d 65 73 73 61 67 65 0a 0a 43 72 65 61 74 : message..Creat
00b0: 65 20 27 72 6e 67 73 20 5c 20 74 68 69 73 20 69 e 'rngs \ this i
00c0: 73 20 65 73 73 65 6e 74 69 61 6c 6c 79 20 57 75 s essentially Wu
00d0: 72 73 74 6b 65 73 73 65 6c 27 73 20 53 2d 62 6f rstkessel's S-bo
00e0: 78 0a 24 45 41 35 37 36 42 31 35 41 37 41 46 42 x.$EA576B15A7AFB
00f0: 41 30 38 20 2c 20 24 42 46 34 38 38 38 44 43 30 A08 , $BF4888DC0
0100: 32 31 33 31 45 46 37 20 2c 20 24 35 46 34 39 41 2131EF7 , $5F49A
0110: 34 30 42 31 44 41 41 46 35 46 44 20 2c 20 24 37 40B1DAAF5FD , $7
0120: 37 39 38 39 37 35 45 35 32 33 33 43 38 39 44 20 798975E5233C89D
0130: 2c 0a 24 41 37 30 41 31 42 44 35 31 38 42 33 46 ,.$A70A1BD518B3F
0140: 42 43 36 20 2c 20 24 38 45 33 31 44 35 34 45 43 BC6 , $8E31D54EC
0150: 42 37 42 43 44 46 39 20 2c 20 24 39 34 39 44 31 B7BCDF9 , $949D1
0160: 30 37 30 32 39 46 39 34 45 41 41 20 2c 20 24 37 07029F94EAA , $7
0170: 42 34 30 32 36 31 46 36 42 33 45 30 37 36 33 20 B40261F6B3E0763
0180: 2c 0a 24 45 38 34 35 46 39 30 34 37 37 41 33 30 ,.$E845F90477A30
0190: 41 43 35 20 2c 20 24 36 42 46 35 43 44 43 30 39 AC5 , $6BF5CDC09
01a0: 34 42 37 41 36 35 37 20 2c 20 24 42 30 37 39 36 4B7A657 , $B0796
01b0: 43 39 46 36 31 46 39 39 30 46 39 20 2c 20 24 43 C9F61F990F9 , $C
01c0: 31 34 39 46 41 42 41 35 30 30 31 34 42 46 43 20 149FABA50014BFC
01d0: 2c 0a 24 36 32 36 33 37 37 32 32 38 42 43 37 36 ,.$626377228BC76
01e0: 32 45 46 20 2c 20 24 36 33 39 42 46 45 39 33 30 2EF , $639BFE930
01f0: 39 34 45 37 42 38 34 20 2c 20 24 30 42 36 31 31 94E7B84 , $0B611
0200: 34 30 43 31 33 35 31 33 45 31 35 20 2c 20 24 41 40C13513E15 , $A
0210: 44 42 38 30 30 34 36 30 44 38 42 37 41 33 46 20 DB800460D8B7A3F
0220: 2c 0a 24 32 30 44 33 38 37 33 31 31 30 38 38 30 ,.$20D3873110880
0230: 44 34 33 20 2c 20 24 31 34 34 42 38 36 32 46 34 D43 , $144B862F4
0240: 37 35 35 44 38 45 46 20 2c 20 24 36 39 43 31 32 755D8EF , $69C12
0250: 37 46 33 35 30 45 43 44 37 30 39 20 2c 20 24 34 7F350ECD709 , $4
0260: 41 39 32 35 31 31 46 41 44 33 31 44 34 36 35 20 A92511FAD31D465
0270: 2c 0a 24 33 34 45 42 30 45 46 38 45 44 38 32 33 ,.$34EB0EF8ED823
0280: 30 42 32 20 2c 20 24 34 37 37 42 46 34 36 36 45 0B2 , $477BF466E
0290: 33 33 32 44 44 42 38 20 2c 20 24 30 38 36 42 36 332DDB8 , $086B6
02a0: 46 32 30 44 43 32 46 31 42 33 33 20 2c 20 24 45 F20DC2F1B33 , $E
02b0: 30 32 30 43 38 30 31 32 45 31 45 42 43 34 41 20 020C8012E1EBC4A
02c0: 2c 0a 24 43 34 41 35 42 45 46 39 33 39 30 34 34 ,.$C4A5BEF939044
02d0: 41 46 43 20 2c 20 24 43 35 43 35 42 30 33 46 38 AFC , $C5C5B03F8
02e0: 30 46 41 46 37 33 39 20 2c 20 24 41 44 34 36 45 0FAF739 , $AD46E
02f0: 46 42 41 36 45 34 45 45 46 42 32 20 2c 20 24 45 FBA6E4EEFB2 , $E
0300: 41 44 30 34 45 45 46 32 31 41 44 35 43 43 41 20 AD04EEF21AD5CCA
0310: 2c 0a 24 36 38 35 31 36 33 34 35 46 33 32 45 35 ,.$68516345F32E5
0320: 38 32 45 20 2c 20 24 46 45 44 45 32 30 36 37 41 82E , $FEDE2067A
0330: 33 33 35 42 31 46 36 20 2c 20 24 39 36 36 31 31 335B1F6 , $96611
0340: 44 31 33 31 37 32 42 41 30 34 34 20 2c 20 24 31 D13172BA044 , $1
0350: 44 44 42 43 33 46 33 36 32 35 37 44 46 39 36 20 DDBC3F36257DF96
0360: 2c 0a 24 34 42 46 45 37 35 41 39 31 42 35 38 32 ,.$4BFE75A91B582
0370: 44 30 37 20 2c 20 24 38 32 44 46 33 41 37 44 34 D07 , $82DF3A7D4
0380: 32 30 35 44 39 42 34 20 2c 20 24 43 44 43 37 43 205D9B4 , $CDC7C
0390: 32 43 37 36 39 42 31 30 31 36 33 20 2c 20 24 32 2C769B10163 , $2
03a0: 42 39 45 46 42 33 41 34 30 36 43 31 43 32 32 20 B9EFB3A406C1C22
03b0: 2c 0a 24 44 41 37 33 32 46 31 37 42 42 35 46 41 ,.$DA732F17BB5FA
03c0: 38 31 39 20 2c 20 24 31 34 44 41 32 44 39 39 34 819 , $14DA2D994
03d0: 42 38 38 45 42 46 42 20 2c 20 24 45 39 45 38 44 B88EBFB , $E9E8D
03e0: 41 33 37 31 38 36 36 38 31 38 45 20 2c 20 24 36 A371866818E , $6
03f0: 41 41 46 45 41 41 42 38 30 44 37 32 37 35 38 20 AAFEAAB80D72758
0400: 2c 0a 24 45 32 34 35 33 41 43 45 41 37 34 37 31 ,.$E2453ACEA7471
0410: 39 44 42 20 2c 20 24 36 32 43 41 42 37 38 45 38 9DB , $62CAB78E8
0420: 32 31 33 37 45 37 38 20 2c 20 24 34 42 36 30 45 2137E78 , $4B60E
0430: 36 37 37 38 41 38 34 43 38 32 42 20 2c 20 24 34 6778A84C82B , $4
0440: 31 42 46 32 34 31 37 42 30 30 37 30 37 36 34 20 1BF2417B0070764
0450: 2c 0a 24 46 33 38 36 35 41 44 45 42 46 33 33 37 ,.$F3865ADEBF337
0460: 41 39 39 20 2c 20 24 41 31 45 43 33 36 43 36 39 A99 , $A1EC36C69
0470: 36 34 39 32 42 45 30 20 2c 20 24 37 43 38 38 34 6492BE0 , $7C884
0480: 42 33 32 30 38 30 43 36 34 39 46 20 2c 20 24 41 B32080C649F , $A
0490: 41 45 39 39 42 44 41 44 43 33 37 36 38 35 41 20 AE99BDADC37685A
04a0: 2c 0a 24 44 43 41 34 43 35 39 44 39 38 42 45 45 ,.$DCA4C59D98BEE
04b0: 43 36 43 20 2c 20 24 44 44 38 38 38 36 46 45 44 C6C , $DD8886FED
04c0: 38 42 38 32 30 39 30 20 2c 20 24 46 38 39 34 41 8B82090 , $F894A
04d0: 41 36 39 39 34 45 46 44 42 38 41 20 2c 20 24 46 A6994EFDB8A , $F
04e0: 42 39 35 34 45 41 37 31 30 37 42 31 42 46 33 20 B954EA7107B1BF3
04f0: 2c 0a 24 38 30 45 35 36 39 35 38 31 37 37 33 43 ,.$80E569581773C
0500: 46 35 46 20 2c 20 24 46 34 31 38 45 31 46 39 37 F5F , $F418E1F97
0510: 45 36 30 31 44 39 34 20 2c 20 24 37 41 39 42 39 E601D94 , $7A9B9
0520: 46 39 30 33 33 41 34 30 38 32 30 20 2c 20 24 30 F9033A40820 , $0
0530: 30 45 30 36 44 37 43 34 46 35 30 37 32 36 42 20 0E06D7C4F50726B
0540: 2c 0a 24 31 39 43 32 30 35 43 37 46 34 36 31 45 ,.$19C205C7F461E
0550: 42 36 35 20 2c 20 24 44 42 36 31 30 41 33 36 44 B65 , $DB610A36D
0560: 45 34 30 41 45 37 43 20 2c 20 24 30 46 43 44 32 E40AE7C , $0FCD2
0570: 30 31 41 46 33 45 36 35 46 35 46 20 2c 20 24 35 01AF3E65F5F , $5
0580: 38 34 30 39 31 30 46 43 31 39 30 32 32 32 34 20 840910FC1902224
0590: 2c 0a 24 31 32 31 30 39 37 35 32 34 30 42 45 31 ,.$1210975240BE1
05a0: 38 32 39 20 2c 20 24 37 31 42 39 37 33 30 37 45 829 , $71B97307E
05b0: 38 45 39 30 33 46 39 20 2c 20 24 44 46 38 35 43 8E903F9 , $DF85C
05c0: 36 43 33 34 36 44 46 34 46 46 32 20 2c 20 24 42 6C346DF4FF2 , $B
05d0: 42 32 36 46 38 33 35 46 44 33 37 31 31 46 31 20 B26F835FD3711F1
05e0: 2c 0a 24 34 44 45 38 45 36 44 43 30 30 38 42 44 ,.$4DE8E6DC008BD
05f0: 32 34 39 20 2c 20 24 38 43 31 31 44 35 41 36 34 249 , $8C11D5A64
0600: 37 43 41 36 32 33 31 20 2c 20 24 42 31 30 44 30 7CA6231 , $B10D0
0610: 46 36 36 45 43 30 37 41 32 35 31 20 2c 20 24 44 F66EC07A251 , $D
0620: 32 44 34 43 37 42 44 36 30 38 41 41 43 44 45 20 2D4C7BD608AACDE
0630: 2c 0a 24 31 37 43 37 35 36 30 44 36 32 31 45 36 ,.$17C7560D621E6
0640: 44 36 32 20 2c 20 24 41 31 38 32 35 39 31 42 43 D62 , $A182591BC
0650: 35 33 44 37 43 38 41 20 2c 20 24 38 46 42 46 37 53D7C8A , $8FBF7
0660: 32 36 30 43 31 36 30 35 38 44 37 20 2c 20 24 44 260C16058D7 , $D
0670: 32 30 43 31 41 41 34 37 41 44 32 38 30 46 44 20 20C1AA47AD280FD
0680: 2c 0a 24 34 43 33 34 41 42 43 36 34 36 32 37 36 ,.$4C34ABC646276
0690: 44 33 45 20 2c 20 24 44 46 39 33 32 38 32 32 32 D3E , $DF9328222
06a0: 42 35 35 35 38 38 35 20 2c 20 24 35 46 43 45 41 B555885 , $5FCEA
06b0: 43 36 38 42 39 31 41 41 37 35 46 20 2c 20 24 42 C68B91AA75F , $B
06c0: 36 36 32 43 34 44 38 34 46 37 31 33 35 43 36 20 662C4D84F7135C6
06d0: 2c 0a 24 34 31 38 44 42 44 33 43 34 35 44 37 45 ,.$418DBD3C45D7E
06e0: 36 37 43 20 2c 20 24 35 45 30 37 44 42 39 37 41 67C , $5E07DB97A
06f0: 32 38 44 32 41 33 41 20 2c 20 24 44 35 44 37 42 28D2A3A , $D5D7B
0700: 30 32 34 43 37 45 31 34 38 41 33 20 2c 20 24 33 024C7E148A3 , $3
0710: 46 33 30 32 33 36 33 39 45 34 45 44 39 31 44 20 F3023639E4ED91D
0720: 2c 0a 24 37 35 35 39 30 35 38 30 44 31 38 42 44 ,.$75590580D18BD
0730: 43 46 37 20 2c 20 24 32 39 33 36 43 34 34 35 41 CF7 , $2936C445A
0740: 38 43 43 45 35 44 33 20 2c 20 24 31 43 39 42 35 8CCE5D3 , $1C9B5
0750: 31 33 35 32 41 39 42 33 38 41 41 20 2c 20 24 31 1352A9B38AA , $1
0760: 45 43 36 37 42 30 45 36 33 45 41 36 42 39 43 20 EC67B0E63EA6B9C
0770: 2c 0a 24 33 30 41 41 34 32 46 34 34 34 44 44 38 ,.$30AA42F444DD8
0780: 44 37 37 20 2c 20 24 35 34 39 30 43 37 35 46 31 D77 , $5490C75F1
0790: 41 35 30 42 33 44 34 20 2c 20 24 38 41 36 32 44 A50B3D4 , $8A62D
07a0: 43 36 38 36 36 31 34 39 44 43 36 20 2c 20 24 34 C6866149DC6 , $4
07b0: 35 45 37 31 43 41 35 38 41 33 41 31 41 30 33 20 5E71CA58A3A1A03
07c0: 2c 0a 24 34 34 43 33 35 41 36 30 43 41 36 32 45 ,.$44C35A60CA62E
07d0: 46 34 43 20 2c 20 24 38 41 38 44 31 30 46 36 37 F4C , $8A8D10F67
07e0: 39 30 34 46 32 30 33 20 2c 20 24 37 33 46 42 34 904F203 , $73FB4
07f0: 37 43 39 39 41 37 38 39 45 32 37 20 2c 20 24 46 7C99A789E27 , $F
0800: 36 44 41 32 36 34 43 35 45 43 35 38 38 33 34 20 6DA264C5EC58834
0810: 2c 0a 24 37 44 45 37 30 37 41 42 39 34 31 41 36 ,.$7DE707AB941A6
0820: 38 42 31 20 2c 20 24 38 45 35 46 43 31 35 41 42 8B1 , $8E5FC15AB
0830: 31 42 38 32 44 34 32 20 2c 20 24 31 36 39 46 32 1B82D42 , $169F2
0840: 37 30 45 33 31 45 31 31 38 42 39 20 2c 20 24 38 70E31E118B9 , $8
0850: 39 44 37 37 44 32 43 41 32 32 38 46 31 41 31 20 9D77D2CA228F1A1
0860: 2c 0a 24 46 37 33 42 46 43 44 30 37 36 45 41 34 ,.$F73BFCD076EA4
0870: 35 39 33 20 2c 20 24 33 46 43 32 35 39 34 45 41 593 , $3FC2594EA
0880: 38 36 38 41 41 36 42 20 2c 20 24 37 45 37 31 32 868AA6B , $7E712
0890: 42 33 38 32 36 42 46 39 34 30 42 20 2c 20 24 43 B3826BF940B , $C
08a0: 35 45 34 37 35 32 33 46 32 45 44 37 32 44 33 20 5E47523F2ED72D3
08b0: 2c 0a 24 42 31 37 44 35 45 32 42 34 30 44 39 31 ,.$B17D5E2B40D91
08c0: 43 42 37 20 2c 20 24 37 41 34 36 43 41 39 38 39 CB7 , $7A46CA989
08d0: 42 36 42 35 34 35 43 20 2c 20 24 44 46 35 33 39 B6B545C , $DF539
08e0: 36 33 34 37 33 44 38 41 30 32 38 20 2c 20 24 31 63473D8A028 , $1
08f0: 43 32 42 30 35 45 39 35 42 36 41 32 33 36 31 20 C2B05E95B6A2361
0900: 2c 0a 24 32 41 38 43 45 36 43 43 38 41 41 34 36 ,.$2A8CE6CC8AA46
0910: 32 34 30 20 2c 20 24 37 45 35 36 36 37 33 42 38 240 , $7E56673B8
0920: 34 36 37 42 32 44 34 20 2c 20 24 35 43 43 30 38 467B2D4 , $5CC08
0930: 39 38 36 44 44 31 36 34 33 44 32 20 2c 20 24 33 986DD1643D2 , $3
0940: 34 42 45 43 32 36 43 31 30 41 38 41 30 46 37 20 4BEC26C10A8A0F7
0950: 2c 0a 24 35 41 31 30 36 35 35 30 38 33 34 34 44 ,.$5A1065508344D
0960: 39 42 46 20 2c 20 24 39 36 34 43 44 36 39 31 43 9BF , $964CD691C
0970: 37 35 31 34 41 35 34 20 2c 20 24 44 41 36 36 34 7514A54 , $DA664
0980: 32 45 32 30 36 44 38 45 45 43 30 20 2c 20 24 46 2E206D8EEC0 , $F
0990: 45 35 30 36 34 30 45 41 43 43 35 37 37 33 36 20 E50640EACC57736
09a0: 2c 0a 24 34 46 44 37 37 35 42 45 45 43 30 33 45 ,.$4FD775BEEC03E
09b0: 30 30 43 20 2c 20 24 32 45 44 35 31 33 32 32 46 00C , $2ED51322F
09c0: 41 36 34 38 34 37 30 20 2c 20 24 44 31 32 36 33 A648470 , $D1263
09d0: 39 36 46 45 33 34 36 46 44 38 32 20 2c 20 24 33 96FE346FD82 , $3
09e0: 32 31 46 38 45 36 32 36 36 30 41 35 33 35 38 20 21F8E62660A5358
09f0: 2c 0a 24 42 31 38 41 43 30 34 31 35 31 32 30 41 ,.$B18AC0415120A
0a00: 39 37 30 20 2c 20 24 41 45 36 36 45 38 44 30 44 970 , $AE66E8D0D
0a10: 38 39 42 44 45 41 32 20 2c 20 24 38 46 46 33 39 89BDEA2 , $8FF39
0a20: 30 37 30 34 32 31 31 33 37 31 33 20 2c 20 24 33 07042113713 , $3
0a30: 45 44 31 41 35 41 46 34 35 42 39 42 44 32 31 20 ED1A5AF45B9BD21
0a40: 2c 0a 24 43 44 39 33 43 35 41 37 36 37 36 46 39 ,.$CD93C5A7676F9
0a50: 42 38 30 20 2c 20 24 42 36 33 39 30 41 33 44 39 B80 , $B6390A3D9
0a60: 34 44 41 45 46 31 31 20 2c 20 24 38 36 38 39 37 4DAEF11 , $86897
0a70: 36 37 31 35 43 35 43 43 41 36 38 20 2c 20 24 41 6715C5CCA68 , $A
0a80: 44 38 38 36 41 41 30 36 34 42 35 44 44 43 35 20 D886AA064B5DDC5
0a90: 2c 0a 24 44 43 44 38 41 30 43 43 42 30 45 45 34 ,.$DCD8A0CCB0EE4
0aa0: 46 34 32 20 2c 20 24 35 45 38 32 35 42 35 41 46 F42 , $5E825B5AF
0ab0: 32 36 39 36 42 34 38 20 2c 20 24 43 36 41 44 32 2696B48 , $C6AD2
0ac0: 38 34 38 42 31 42 44 32 41 46 45 20 2c 20 24 34 848B1BD2AFE , $4
0ad0: 44 45 35 41 32 30 41 44 33 33 30 42 36 45 34 20 DE5A20AD330B6E4
0ae0: 2c 0a 24 31 32 31 44 41 33 45 34 34 32 38 41 41 ,.$121DA3E4428AA
0af0: 32 37 44 20 2c 20 24 41 44 37 33 34 41 46 36 39 27D , $AD734AF69
0b00: 42 42 36 35 38 45 38 20 2c 20 24 41 32 33 39 38 BB658E8 , $A2398
0b10: 30 39 38 33 34 42 36 36 46 45 43 20 2c 20 24 34 09834B66FEC , $4
0b20: 45 30 41 46 46 32 35 43 31 36 32 30 32 34 43 20 E0AFF25C162024C
0b30: 2c 0a 24 31 32 41 44 41 42 31 42 38 43 44 42 41 ,.$12ADAB1B8CDBA
0b40: 41 34 39 20 2c 20 24 37 45 46 44 32 30 35 42 38 A49 , $7EFD205B8
0b50: 41 32 44 37 31 34 32 20 2c 20 24 31 31 30 30 44 A2D7142 , $1100D
0b60: 33 36 39 35 31 43 43 36 41 43 44 20 2c 20 24 35 36951CC6ACD , $5
0b70: 36 44 37 44 35 44 39 30 38 37 44 34 32 44 43 20 6D7D5D9087D42DC
0b80: 2c 0a 24 31 39 42 45 38 46 33 44 31 44 37 41 31 ,.$19BE8F3D1D7A1
0b90: 30 33 46 20 2c 20 24 35 38 37 36 39 37 41 30 37 03F , $587697A07
0ba0: 33 33 37 45 30 37 36 20 2c 20 24 46 31 33 34 39 337E076 , $F1349
0bb0: 38 33 44 37 39 36 33 33 33 42 46 20 2c 20 24 38 83D796333BF , $8
0bc0: 41 36 37 42 34 46 33 38 43 35 36 32 34 43 35 20 A67B4F38C5624C5
0bd0: 2c 0a 24 35 44 38 41 39 37 33 36 41 44 32 45 45 ,.$5D8A9736AD2EE
0be0: 44 45 33 20 2c 20 24 35 43 33 32 46 30 43 31 44 DE3 , $5C32F0C1D
0bf0: 32 45 32 36 42 45 44 20 2c 20 24 30 32 39 41 44 2E26BED , $029AD
0c00: 38 36 30 38 30 41 31 39 36 30 41 20 2c 20 24 45 86080A1960A , $E
0c10: 44 35 46 37 36 44 31 44 42 32 37 36 45 44 39 20 D5F76D1DB276ED9
0c20: 2c 0a 24 33 33 43 42 35 38 31 30 36 31 38 30 35 ,.$33CB581061805
0c30: 44 46 44 20 2c 20 24 41 35 44 46 32 35 32 32 41 DFD , $A5DF2522A
0c40: 30 46 36 39 31 43 37 20 2c 20 24 41 34 41 44 45 0F691C7 , $A4ADE
0c50: 44 46 37 38 32 46 44 36 42 44 32 20 2c 20 24 46 DF782FD6BD2 , $F
0c60: 45 33 38 34 46 46 30 44 33 37 31 43 39 36 34 20 E384FF0D371C964
0c70: 2c 0a 24 46 35 43 46 45 46 39 45 34 41 34 43 44 ,.$F5CFEF9E4A4CD
0c80: 32 37 33 20 2c 20 24 38 35 43 42 42 41 43 38 36 273 , $85CBBAC86
0c90: 39 34 30 31 43 38 31 20 2c 20 24 44 35 31 31 42 9401C81 , $D511B
0ca0: 37 31 33 46 45 44 37 30 30 35 42 20 2c 20 24 41 713FED7005B , $A
0cb0: 37 36 31 31 31 37 37 44 36 39 36 46 31 38 36 20 7611177D696F186
0cc0: 2c 0a 24 43 42 32 42 45 31 46 46 41 36 30 38 46 ,.$CB2BE1FFA608F
0cd0: 36 37 35 20 2c 20 24 32 35 30 33 31 30 34 36 43 675 , $25031046C
0ce0: 38 35 43 34 36 35 31 20 2c 20 24 36 30 37 31 37 85C4651 , $60717
0cf0: 31 42 43 34 35 37 37 44 32 37 30 20 2c 20 24 41 1BC4577D270 , $A
0d00: 37 42 44 38 38 38 34 32 39 39 38 36 33 41 36 20 7BD8884299863A6
0d10: 2c 0a 24 42 42 30 39 46 42 37 32 38 30 39 39 41 ,.$BB09FB728099A
0d20: 31 45 30 20 2c 20 24 32 35 37 31 34 35 45 35 36 1E0 , $257145E56
0d30: 36 43 38 36 39 38 46 20 2c 20 24 36 35 36 42 44 6C8698F , $656BD
0d40: 42 36 42 39 31 38 34 35 33 35 46 20 2c 20 24 32 B6B9184535F , $2
0d50: 36 38 32 41 41 45 32 43 41 38 33 41 45 39 31 20 682AAE2CA83AE91
0d60: 2c 0a 24 46 37 41 34 34 43 43 34 30 30 33 41 41 ,.$F7A44CC4003AA
0d70: 45 45 30 20 2c 20 24 38 38 38 41 39 41 39 33 37 EE0 , $888A9A937
0d80: 30 44 41 34 36 30 41 20 2c 20 24 36 44 45 31 46 0DA460A , $6DE1F
0d90: 37 46 43 46 46 36 34 41 38 39 35 20 2c 20 24 42 7FCFF64A895 , $B
0da0: 39 39 38 32 39 34 42 36 45 36 33 31 37 32 36 20 998294B6E631726
0db0: 2c 0a 24 44 44 31 30 46 44 30 45 33 37 33 44 45 ,.$DD10FD0E373DE
0dc0: 31 37 34 20 2c 20 24 41 34 41 31 43 39 39 45 31 174 , $A4A1C99E1
0dd0: 45 44 46 46 37 38 38 20 2c 20 24 41 42 46 38 39 EDFF788 , $ABF89
0de0: 43 35 43 32 33 39 36 35 43 38 43 20 2c 20 24 35 C5C23965C8C , $5
0df0: 31 39 46 43 45 41 43 44 42 35 30 41 34 32 45 20 19FCEACDB50A42E
0e00: 2c 0a 24 43 38 37 45 45 30 36 42 30 34 41 33 45 ,.$C87EE06B04A3E
0e10: 45 32 37 20 2c 20 24 42 33 42 38 34 38 33 36 46 E27 , $B3B84836F
0e20: 35 32 45 46 45 34 41 20 2c 20 24 36 37 37 31 38 52EFE4A , $67718
0e30: 35 35 46 43 35 34 38 38 46 46 32 20 2c 20 24 30 55FC5488FF2 , $0
0e40: 32 39 46 32 37 33 35 37 42 46 37 39 41 37 42 20 29F27357BF79A7B
0e50: 2c 0a 24 38 36 34 45 39 33 31 45 43 30 32 44 32 ,.$864E931EC02D2
0e60: 32 30 31 20 2c 20 24 39 44 46 41 34 31 43 30 36 201 , $9DFA41C06
0e70: 39 41 32 42 45 45 45 20 2c 20 24 32 32 41 35 44 9A2BEEE , $22A5D
0e80: 42 34 42 35 30 34 36 34 30 39 31 20 2c 20 24 42 B4B50464091 , $B
0e90: 30 44 32 45 32 39 39 41 37 38 30 38 37 32 34 20 0D2E299A7808724
0ea0: 2c 0a 24 46 46 43 33 35 32 41 43 43 34 45 30 36 ,.$FFC352ACC4E06
0eb0: 43 44 36 20 2c 20 24 39 35 37 38 42 45 42 42 34 CD6 , $9578BEBB4
0ec0: 44 42 38 46 43 32 46 20 2c 20 24 44 43 36 45 33 DB8FC2F , $DC6E3
0ed0: 34 39 42 32 44 36 44 41 35 34 38 20 2c 20 24 32 49B2D6DA548 , $2
0ee0: 30 39 34 44 41 42 36 43 36 34 36 43 32 44 37 20 094DAB6C646C2D7
0ef0: 2c 0a 24 33 42 30 41 46 33 44 32 46 44 38 45 46 ,.$3B0AF3D2FD8EF
0f00: 31 44 30 20 2c 20 24 36 33 46 44 45 37 38 46 32 1D0 , $63FDE78F2
0f10: 45 30 46 42 36 33 34 20 2c 20 24 31 43 39 39 35 E0FB634 , $1C995
0f20: 30 33 42 43 36 30 34 46 30 39 37 20 2c 20 24 31 03BC604F097 , $1
0f30: 43 31 45 46 33 45 38 32 43 39 46 43 30 35 33 20 C1EF3E82C9FC053
0f40: 2c 0a 24 36 42 44 42 38 45 37 36 30 31 37 43 31 ,.$6BDB8E76017C1
0f50: 38 31 41 20 2c 20 24 32 36 44 38 38 34 30 34 42 81A , $26D88404B
0f60: 38 43 42 41 46 41 45 20 2c 20 24 31 38 37 33 36 8CBAFAE , $18736
0f70: 36 41 46 30 34 34 37 31 46 38 44 20 2c 20 24 37 6AF04471F8D , $7
0f80: 36 41 32 37 37 38 46 36 36 45 35 31 32 42 38 20 6A2778F66E512B8
0f90: 2c 0a 24 45 35 42 41 32 39 35 31 41 46 32 31 31 ,.$E5BA2951AF211
0fa0: 46 38 30 20 2c 20 24 38 36 42 30 36 35 35 30 37 F80 , $86B065507
0fb0: 42 33 33 46 32 30 35 20 2c 20 24 37 35 45 33 42 B33F205 , $75E3B
0fc0: 30 44 46 44 44 31 37 42 45 39 38 20 2c 20 24 30 0DFDD17BE98 , $0
0fd0: 39 45 44 41 37 37 42 36 30 41 42 46 45 30 41 20 9EDA77B60ABFE0A
0fe0: 2c 0a 24 39 37 42 45 41 30 34 45 38 46 41 33 35 ,.$97BEA04E8FA35
0ff0: 30 46 43 20 2c 20 24 42 43 36 45 36 34 31 44 38 0FC , $BC6E641D8
1000: 41 35 44 31 41 32 38 20 2c 20 24 34 36 44 36 33 A5D1A28 , $46D63
1010: 37 37 44 35 46 42 37 37 43 38 44 20 2c 20 24 33 77D5FB77C8D , $3
1020: 46 39 37 41 37 43 32 33 32 38 35 44 39 45 34 20 F97A7C23285D9E4
1030: 2c 0a 24 42 41 35 30 31 36 34 43 41 39 32 36 43 ,.$BA50164CA926C
1040: 32 35 44 20 2c 20 24 43 43 44 42 35 37 38 31 33 25D , $CCDB57813
1050: 45 32 32 30 34 35 31 20 2c 20 24 31 43 39 36 37 E220451 , $1C967
1060: 46 31 32 31 42 36 33 44 44 44 46 20 2c 20 24 41 F121B63DDDF , $A
1070: 32 41 38 34 30 42 32 45 35 36 43 41 33 42 44 20 2A840B2E56CA3BD
1080: 2c 0a 24 30 30 37 38 37 41 38 31 44 42 36 39 41 ,.$00787A81DB69A
1090: 38 35 31 20 2c 20 24 41 42 37 42 45 38 33 35 42 851 , $AB7BE835B
10a0: 46 43 31 39 46 45 38 20 2c 20 24 43 33 35 41 31 FC19FE8 , $C35A1
10b0: 38 42 36 45 31 31 41 39 46 30 35 20 2c 20 24 46 8B6E11A9F05 , $F
10c0: 34 46 41 44 33 43 32 36 39 43 45 41 39 39 35 20 4FAD3C269CEA995
10d0: 2c 0a 24 43 35 32 42 34 46 39 46 42 35 46 37 45 ,.$C52B4F9FB5F7E
10e0: 42 38 37 20 2c 20 24 42 46 30 36 36 38 39 30 42 B87 , $BF066890B
10f0: 34 39 34 44 46 30 45 20 2c 20 24 45 36 36 35 45 494DF0E , $E665E
1100: 35 34 42 44 35 37 42 46 30 37 44 20 2c 20 24 39 54BD57BF07D , $9
1110: 46 36 36 32 36 35 30 45 31 43 41 41 38 42 33 20 F662650E1CAA8B3
1120: 2c 0a 24 42 36 30 46 43 42 42 32 30 35 45 31 42 ,.$B60FCBB205E1B
1130: 33 44 34 20 2c 20 24 32 31 44 34 37 46 30 35 42 3D4 , $21D47F05B
1140: 31 36 43 45 45 34 36 20 2c 20 24 41 37 37 30 36 16CEE46 , $A7706
1150: 44 39 44 41 34 44 33 36 42 33 31 20 2c 20 24 32 D9DA4D36B31 , $2
1160: 33 30 32 38 44 31 43 38 38 36 35 37 38 33 39 20 3028D1C88657839
1170: 2c 0a 24 45 30 46 33 42 45 39 38 43 30 44 38 45 ,.$E0F3BE98C0D8E
1180: 39 32 45 20 2c 20 24 39 44 41 35 44 35 43 44 45 92E , $9DA5D5CDE
1190: 44 38 43 34 44 41 32 20 2c 20 24 38 32 37 31 30 D8C4DA2 , $82710
11a0: 39 42 46 41 37 35 34 43 45 41 34 20 2c 20 24 34 9BFA754CEA4 , $4
11b0: 33 35 35 37 31 46 38 38 45 34 32 42 43 31 46 20 35571F88E42BC1F
11c0: 2c 0a 24 33 43 45 30 36 30 39 34 43 42 42 39 45 ,.$3CE06094CBB9E
11d0: 46 43 42 20 2c 20 24 32 43 30 33 34 34 37 44 39 FCB , $2C03447D9
11e0: 35 42 30 30 39 37 37 20 2c 20 24 44 33 45 36 33 5B00977 , $D3E63
11f0: 42 36 35 44 39 36 41 33 36 38 36 20 2c 20 24 41 B65D96A3686 , $A
1200: 35 30 43 37 32 44 37 34 33 37 42 43 37 46 45 20 50C72D7437BC7FE
1210: 2c 0a 24 35 37 33 37 45 34 37 36 33 38 39 43 41 ,.$5737E476389CA
1220: 39 46 44 20 2c 20 24 33 43 38 46 38 34 39 35 45 9FD , $3C8F8495E
1230: 44 39 46 42 36 42 42 20 2c 20 24 37 45 36 36 42 D9FB6BB , $7E66B
1240: 46 30 31 42 44 44 45 38 41 43 39 20 2c 20 24 34 F01BDDE8AC9 , $4
1250: 32 46 46 36 35 30 43 39 34 37 46 31 42 37 33 20 2FF650C947F1B73
1260: 2c 0a 24 38 33 31 41 44 34 43 30 31 41 33 37 34 ,.$831AD4C01A374
1270: 35 38 41 20 2c 20 24 41 42 38 36 32 39 36 39 32 58A , $AB8629692
1280: 34 46 39 44 34 34 45 20 2c 20 24 44 30 34 35 33 4F9D44E , $D0453
1290: 34 39 33 34 35 32 37 46 45 31 31 20 2c 20 24 41 4934527FE11 , $A
12a0: 44 36 37 42 31 38 44 33 32 36 42 41 30 35 36 20 D67B18D326BA056
12b0: 2c 0a 24 43 44 43 38 35 42 43 32 31 38 45 35 39 ,.$CDC85BC218E59
12c0: 36 43 33 20 2c 20 24 39 37 35 33 36 43 44 36 35 6C3 , $97536CD65
12d0: 30 38 32 41 35 38 38 20 2c 20 24 34 31 38 33 38 082A588 , $41838
12e0: 31 31 31 41 33 37 43 38 39 42 35 20 2c 20 24 31 111A37C89B5 , $1
12f0: 45 36 37 30 41 43 37 41 35 39 30 35 36 34 38 20 E670AC7A5905648
1300: 2c 0a 24 37 45 42 36 37 44 32 36 33 36 41 44 45 ,.$7EB67D2636ADE
1310: 44 46 36 20 2c 20 24 30 35 36 30 35 31 34 46 37 DF6 , $0560514F7
1320: 38 30 44 44 31 33 45 20 2c 20 24 38 42 37 38 41 80DD13E , $8B78A
1330: 39 34 42 36 43 39 39 30 37 30 38 20 2c 20 24 37 94B6C990708 , $7
1340: 43 31 35 39 37 37 42 41 38 45 41 36 32 31 33 20 C15977BA8EA6213
1350: 2c 0a 24 38 43 38 45 38 39 38 44 33 35 46 38 39 ,.$8C8E898D35F89
1360: 35 46 45 20 2c 20 24 31 41 32 43 41 38 45 45 39 5FE , $1A2CA8EE9
1370: 31 37 46 33 32 34 42 20 2c 20 24 32 43 44 33 30 17F324B , $2CD30
1380: 36 37 42 31 32 36 32 41 38 34 44 20 2c 20 24 31 67B1262A84D , $1
1390: 36 39 43 30 39 35 36 44 36 30 31 31 32 34 31 20 69C0956D6011241
13a0: 2c 0a 24 33 32 31 33 46 39 31 39 33 42 44 42 33 ,.$3213F9193BDB3
13b0: 43 36 39 20 2c 20 24 37 42 43 32 46 30 38 36 34 C69 , $7BC2F0864
13c0: 45 37 43 34 38 30 45 20 2c 20 24 35 33 39 46 38 E7C480E , $539F8
13d0: 32 30 30 36 41 42 30 35 42 32 43 20 2c 20 24 44 2006AB05B2C , $D
13e0: 36 38 34 44 44 35 43 36 39 41 37 36 46 37 33 20 684DD5C69A76F73
13f0: 2c 0a 24 31 36 38 41 34 34 45 34 45 30 46 41 30 ,.$168A44E4E0FA0
1400: 35 30 34 20 2c 20 24 34 32 41 37 35 46 44 44 45 504 , $42A75FDDE
1410: 33 42 41 38 43 30 31 20 2c 20 24 46 42 34 38 41 3BA8C01 , $FB48A
1420: 39 32 41 45 32 44 41 44 34 44 31 20 2c 20 24 38 92AE2DAD4D1 , $8
1430: 36 31 32 31 38 39 39 44 43 37 34 32 39 43 37 20 6121899DC7429C7
1440: 2c 0a 24 31 30 46 37 32 41 41 35 42 34 30 41 33 ,.$10F72AA5B40A3
1450: 34 34 41 20 2c 20 24 45 34 39 32 36 42 31 37 38 44A , $E4926B178
1460: 31 46 38 43 39 30 43 20 2c 20 24 34 46 34 43 33 1F8C90C , $4F4C3
1470: 46 32 38 45 44 41 44 37 35 31 38 20 2c 20 24 37 F28EDAD7518 , $7
1480: 34 34 43 35 37 43 34 44 42 31 34 41 30 31 33 20 44C57C4DB14A013
1490: 2c 0a 24 34 35 30 46 43 32 34 42 33 30 36 31 33 ,.$450FC24B30613
14a0: 36 41 45 20 2c 20 24 44 42 45 38 36 31 34 42 37 6AE , $DBE8614B7
14b0: 45 31 38 31 31 35 43 20 2c 20 24 41 34 43 44 36 E18115C , $A4CD6
14c0: 36 38 31 31 42 30 46 38 37 46 43 20 2c 20 24 33 6811B0F87FC , $3
14d0: 31 39 38 34 35 30 30 30 39 39 44 30 36 46 35 20 1984500099D06F5
14e0: 2c 0a 0a 3a 20 77 75 72 73 74 20 28 20 78 31 20 ,..: wurst ( x1
14f0: 69 20 2d 2d 20 78 32 20 29 0a 20 20 20 20 63 65 i -- x2 ). ce
1500: 6c 6c 73 20 27 72 6e 67 73 20 2b 20 40 20 3e 72 lls 'rngs + @ >r
1510: 20 64 75 70 20 32 2a 20 73 77 61 70 20 30 3c 20 dup 2* swap 0<
1520: 2d 20 72 3e 20 78 6f 72 20 3b 0a 0a 3a 20 6d 69 - r> xor ;..: mi
1530: 78 20 28 20 78 31 20 69 6e 64 65 78 20 6e 20 6b x ( x1 index n k
1540: 20 2d 2d 20 78 32 20 69 6e 64 65 78 27 20 6e 20 -- x2 index' n
1550: 29 20 77 75 72 73 74 2d 73 74 61 74 65 20 2b 20 ) wurst-state +
1560: 38 20 30 20 44 4f 0a 09 3e 72 20 6f 76 65 72 20 8 0 DO..>r over
1570: 77 75 72 73 74 2d 73 6f 75 72 63 65 20 2b 20 63 wurst-source + c
1580: 40 20 72 40 20 63 40 20 78 6f 72 20 2d 72 6f 74 @ r@ c@ xor -rot
1590: 0a 09 3e 72 20 3e 72 20 20 77 75 72 73 74 20 72 ..>r >r wurst r
15a0: 3e 20 72 40 20 2b 20 24 33 46 20 61 6e 64 20 72 > r@ + $3F and r
15b0: 3e 20 72 3e 20 63 65 6c 6c 2b 20 4c 4f 4f 50 0a > r> cell+ LOOP.
15c0: 20 20 20 20 64 72 6f 70 20 3b 0a 0a 43 72 65 61 drop ;..Crea
15d0: 74 65 20 72 6f 75 6e 64 23 20 31 33 20 63 2c 20 te round# 13 c,
15e0: 32 39 20 63 2c 20 31 39 20 63 2c 20 32 33 20 63 29 c, 19 c, 23 c
15f0: 2c 20 33 31 20 63 2c 20 34 37 20 63 2c 20 31 37 , 31 c, 47 c, 17
1600: 20 63 2c 20 33 37 20 63 2c 20 5c 20 72 6f 75 6e c, 37 c, \ roun
1610: 64 73 0a 43 72 65 61 74 65 20 70 65 72 6d 75 74 ds.Create permut
1620: 23 20 32 20 63 2c 20 36 20 63 2c 20 31 20 63 2c # 2 c, 6 c, 1 c,
1630: 20 34 20 63 2c 20 37 20 63 2c 20 30 20 63 2c 20 4 c, 7 c, 0 c,
1640: 35 20 63 2c 20 33 20 63 2c 20 5c 20 70 65 72 6d 5 c, 3 c, \ perm
1650: 75 74 20 6c 65 6e 67 74 68 20 31 35 0a 0a 3a 20 ut length 15..:
1660: 78 6f 72 73 20 28 20 61 64 64 72 31 20 61 64 64 xors ( addr1 add
1670: 72 32 20 6e 20 2d 2d 20 29 20 62 6f 75 6e 64 73 r2 n -- ) bounds
1680: 20 3f 44 4f 0a 20 20 20 20 64 75 70 20 40 20 49 ?DO. dup @ I
1690: 20 40 20 78 6f 72 20 49 20 21 20 63 65 6c 6c 2b @ xor I ! cell+
16a0: 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 20 20 64 72 cell +LOOP dr
16b0: 6f 70 20 3b 0a 3a 20 2b 21 73 20 28 20 61 64 64 op ;.: +!s ( add
16c0: 72 31 20 61 64 64 72 32 20 6e 20 2d 2d 20 29 20 r1 addr2 n -- )
16d0: 62 6f 75 6e 64 73 20 3f 44 4f 0a 20 20 20 20 64 bounds ?DO. d
16e0: 75 70 20 40 20 49 20 2b 21 20 63 65 6c 6c 2b 20 up @ I +! cell+
16f0: 20 63 65 6c 6c 20 2b 4c 4f 4f 50 20 20 64 72 6f cell +LOOP dro
1700: 70 20 3b 0a 0a 43 72 65 61 74 65 20 27 72 6f 75 p ;..Create 'rou
1710: 6e 64 2d 66 6c 61 67 73 0a 20 20 20 20 24 31 30 nd-flags. $10
1720: 20 63 2c 20 24 33 30 20 63 2c 20 24 31 30 20 63 c, $30 c, $10 c
1730: 2c 20 24 37 30 20 63 2c 20 24 31 30 20 63 2c 20 , $70 c, $10 c,
1740: 24 33 30 20 63 2c 20 24 31 30 20 63 2c 20 24 46 $30 c, $10 c, $F
1750: 30 20 63 2c 0a 0a 3a 20 3e 73 6f 75 72 63 65 20 0 c,..: >source
1760: 28 20 6d 20 2d 2d 20 6d 20 29 20 20 64 75 70 20 ( m -- m ) dup
1770: 77 75 72 73 74 2d 73 6f 75 72 63 65 20 73 74 61 wurst-source sta
1780: 74 65 23 20 78 6f 72 73 20 3b 0a 3a 20 3e 73 74 te# xors ;.: >st
1790: 61 74 65 20 28 20 6d 20 2d 2d 20 6d 20 29 20 20 ate ( m -- m )
17a0: 20 77 75 72 73 74 2d 73 74 61 74 65 20 6f 76 65 wurst-state ove
17b0: 72 20 73 74 61 74 65 23 20 78 6f 72 73 20 3b 0a r state# xors ;.
17c0: 3a 20 2b 65 6e 74 72 6f 70 79 20 28 20 6d 20 2d : +entropy ( m -
17d0: 2d 20 6d 27 20 29 20 20 3e 73 6f 75 72 63 65 20 - m' ) >source
17e0: 3e 73 74 61 74 65 20 73 74 61 74 65 23 20 2b 20 >state state# +
17f0: 3b 0a 3a 20 2d 65 6e 74 72 6f 70 79 20 28 20 6d ;.: -entropy ( m
1800: 20 2d 2d 20 6d 27 20 29 20 20 3e 73 74 61 74 65 -- m' ) >state
1810: 20 3e 73 6f 75 72 63 65 20 73 74 61 74 65 23 20 >source state#
1820: 2b 20 3b 0a 0a 3a 20 75 70 64 61 74 65 2d 73 74 + ;..: update-st
1830: 61 74 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 77 ate ( -- ). w
1840: 75 72 73 74 2d 73 74 61 74 65 20 3e 73 6f 75 72 urst-state >sour
1850: 63 65 20 20 6e 65 78 74 73 74 61 74 65 20 73 77 ce nextstate sw
1860: 61 70 20 73 74 61 74 65 23 20 2b 21 73 20 3b 0a ap state# +!s ;.
1870: 3a 20 72 6f 75 6e 64 20 28 20 6e 20 2d 2d 20 29 : round ( n -- )
1880: 20 64 75 70 20 31 2d 20 73 77 61 70 20 20 38 20 dup 1- swap 8
1890: 30 20 44 4f 0a 09 77 75 72 73 74 2d 73 74 61 74 0 DO..wurst-stat
18a0: 65 20 49 20 70 65 72 6d 75 74 23 20 2b 20 63 40 e I permut# + c@
18b0: 20 63 65 6c 6c 73 20 2b 20 40 20 2d 72 6f 74 0a cells + @ -rot.
18c0: 09 49 20 6d 69 78 20 72 6f 74 20 6e 65 78 74 73 .I mix rot nexts
18d0: 74 61 74 65 20 49 20 63 65 6c 6c 73 20 2b 20 21 tate I cells + !
18e0: 0a 20 20 20 20 4c 4f 4f 50 20 32 64 72 6f 70 20 . LOOP 2drop
18f0: 75 70 64 61 74 65 2d 73 74 61 74 65 20 3b 0a 0a update-state ;..
1900: 3a 20 72 6f 75 6e 64 73 2d 65 20 28 20 61 64 64 : rounds-e ( add
1910: 72 20 6e 20 78 74 20 2d 2d 20 29 20 7b 20 78 74 r n xt -- ) { xt
1920: 20 7d 20 64 75 70 20 24 46 30 20 61 6e 64 20 3f } dup $F0 and ?
1930: 44 4f 0a 09 49 20 24 46 20 61 6e 64 20 72 6f 75 DO..I $F and rou
1940: 6e 64 23 20 2b 20 63 40 20 72 6f 75 6e 64 0a 09 nd# + c@ round..
1950: 49 20 27 72 6f 75 6e 64 2d 66 6c 61 67 73 20 49 I 'round-flags I
1960: 20 24 46 20 61 6e 64 20 2b 20 63 40 20 61 6e 64 $F and + c@ and
1970: 20 49 46 20 20 78 74 20 65 78 65 63 75 74 65 20 IF xt execute
1980: 20 54 48 45 4e 0a 20 20 20 20 4c 4f 4f 50 20 64 THEN. LOOP d
1990: 72 6f 70 20 3b 0a 0a 3a 20 72 6f 75 6e 64 73 20 rop ;..: rounds
19a0: 28 20 61 64 64 72 20 6e 20 2d 2d 20 29 20 20 20 ( addr n -- )
19b0: 20 20 20 20 20 20 20 5b 27 5d 20 2b 65 6e 74 72 ['] +entr
19c0: 6f 70 79 20 72 6f 75 6e 64 73 2d 65 20 3b 0a 3a opy rounds-e ;.:
19d0: 20 72 6f 75 6e 64 73 2d 64 65 63 72 79 70 74 20 rounds-decrypt
19e0: 28 20 61 64 64 72 20 6e 20 2d 2d 20 29 20 20 5b ( addr n -- ) [
19f0: 27 5d 20 2d 65 6e 74 72 6f 70 79 20 72 6f 75 6e '] -entropy roun
1a00: 64 73 2d 65 20 3b 0a ds-e ;.