w8 · tx · HLz···sjM

tx · HLzX9Xy2FtF2SN4jyy5WEL9jjBNS9tTP5ijab7642sjM

3PPRHHF9JKvDLkAc3aHD3Kd5tRZp1CoqAJa:  -0.01400000 Waves

2021.12.14 18:31 [2899098] smart account 3PPRHHF9JKvDLkAc3aHD3Kd5tRZp1CoqAJa > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HLzX9Xy2FtF2SN4jyy5WEL9jjBNS9tTP5ijab7642sjM",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1639495939866,
    "version": 2,
    "chainId": 87,
    "sender": "3PPRHHF9JKvDLkAc3aHD3Kd5tRZp1CoqAJa",
    "senderPublicKey": "Dura8pBsdYoeuB1zq6r5uKsgRS3MfiaVm5J99p6wJXYF",
    "proofs": [
        "54ej28GEWGEehmaKpzSfmjfHxaFeHm8uR8VkRDuWY9KzvqCUAKKCVSnDepsHhMR47YiGPJSvhDadd5omF17HaGa"
    ],
    "script": "base64:AAIFAAAAAAAAACEIAhIAEgASABIDCgEEEgASAwoBARIAEgMKAQQSBAoCCAEAAAAeAAAAAAFUAAAAAAAAAAAKAAAAAAhhc3NldElkcwkABEwAAAACAQAAACDLDWVhDomVWDV6QYtmG29cqLgsRI6cyfm2GIWw4pbOnQkABEwAAAACAQAAACCVnqKhxP1TOpZSYoZtz27uA7AU53iQJs1yaqn8N6iB6AkABEwAAAACAQAAACBETEI9CH27UO9b7w+pTEGbI6O0dZG81cpTQlzTSmNBMQkABEwAAAACAQAAACA8UwNdC4itPl6AxnPIiCRzJm3DP1tGsjdg1FtZBRkf9gkABEwAAAACAQAAACBHJqqMyjeyVfM4RTIomZwd3s/ESYMR92wjqnnAnRb4HgkABEwAAAACAQAAACC8RptE8ygDO+d++ZrmRpYG7ojzSr91oegpp3/KF0uYCQkABEwAAAACAQAAACA31HP+EGOzQfD4jwuXhEWDZ9/gdEeUnpCr93pILzolDQkABEwAAAACAQAAACADhCvsNG9KH67Z7ODKoGAZhB/eHigHNzbLyE7WhCZaSwkABEwAAAACAQAAACCjn39PI3JR0SziIZJiiE0MC/PqIm6B1a/8C5MXzm2xyQkABEwAAAACAQAAACC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QUAAAADbmlsAAAAAA1Bc3NldHNXZWlnaHRzCQAETAAAAAIAAAAAAAAAAAoJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAAKCQAETAAAAAIAAAAAAAAAAAoJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAAKCQAETAAAAAIAAAAAAAAAAAoJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAAKCQAETAAAAAIAAAAAAAAAAAoFAAAAA25pbAAAAAAVQXNzZXRzV2VpZ2h0c0RlY2ltYWxzAAAAAAAAAAACAAAAABFQb29sVG9rZW5EZWNpbWFscwAAAAAAAAAAAAAAAAAIRGVjaW1hbHMJAARMAAAAAgAAAAAAAAAACAkABEwAAAACAAAAAAAAAAAICQAETAAAAAIAAAAAAAAAAAgJAARMAAAAAgAAAAAAAAAACAkABEwAAAACAAAAAAAAAAAICQAETAAAAAIAAAAAAAAAAAgJAARMAAAAAgAAAAAAAAAACAkABEwAAAACAAAAAAAAAAAICQAETAAAAAIAAAAAAAAAAAgJAARMAAAAAgAAAAAAAAAABgUAAAADbmlsAAAAAAZTY2FsZXMJAARMAAAAAgAAAAAABfXhAAkABEwAAAACAAAAAAAF9eEACQAETAAAAAIAAAAAAAX14QAJAARMAAAAAgAAAAAABfXhAAkABEwAAAACAAAAAAAF9eEACQAETAAAAAIAAAAAAAX14QAJAARMAAAAAgAAAAAABfXhAAkABEwAAAACAAAAAAAF9eEACQAETAAAAAIAAAAAAAX14QAJAARMAAAAAgAAAAAAAA9CQAUAAAADbmlsAAAAAANGZWUAAAAAAAAAAMgAAAAABVNjYWxlAAAAAAAAACcQAAAAAAZTY2FsZTgAAAAAAAX14QAAAAAACEZlZVNjYWxlAAAAAAAAACcQAAAAAA1mZWVBZ2dyZWdhdG9yCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXa9qiVoYv7TytpuPotF7xQ9S6A7dRN064AAAAAA1sYXllcjJBZGRyZXNzCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXfsZmrJOybCLb7SJWKYMP5vCMcOJ8e66xAQAAAA5nZXRBc3NldFN0cmluZwAAAAEAAAAHYXNzZXRJZAQAAAAHJG1hdGNoMAUAAAAHYXNzZXRJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAKQnl0ZVZlY3RvcgQAAAABYgUAAAAHJG1hdGNoMAkAAlgAAAABBQAAAAFiAgAAAAVXQVZFUwEAAAANZ2V0QXNzZXRCeXRlcwAAAAEAAAAKYXNzZXRJZFN0cgMJAAAAAAAAAgUAAAAKYXNzZXRJZFN0cgIAAAAFV0FWRVMFAAAABHVuaXQJAAJZAAAAAQUAAAAKYXNzZXRJZFN0cgAAAAAMZWFybmVkQXNzZXRzBQAAAAhhc3NldElkcwEAAAANdHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAAAx0cnlHZXRCaW5hcnkAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABBwAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIBAAAAAAEAAAAWZ2V0Q3VycmVudFRva2VuQmFsYW5jZQAAAAEAAAAJdG9rZW5UeXBlBAAAAAd0b2tlbklkCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABCQABkQAAAAIFAAAACGFzc2V0SWRzBQAAAAl0b2tlblR5cGUJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAAB3Rva2VuSWQCAAAACF9iYWxhbmNlAQAAABBjYWxjdWxhdGVQSXNzdWVkAAAAAgAAAAZhbW91bnQAAAAHdG9rZW5JZAQAAAAHUHN1cHBseQkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAQAAAAHQmFsYW5jZQkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAIX2JhbGFuY2UJAQAAAAhmcmFjdGlvbgAAAAQFAAAABmFtb3VudAUAAAAHUHN1cHBseQUAAAAHQmFsYW5jZQUAAAAERE9XTgEAAAANZ2V0TWluUElzc3VlZAAAAAEAAAAIcGF5bWVudHMKAQAAAAdoYW5kbGVyAAAAAgAAAAVhY2N1bQAAAAdjdXJyZW50BAAAAAdQSXNzdWVkCQEAAAAQY2FsY3VsYXRlUElzc3VlZAAAAAIIBQAAAAdjdXJyZW50AAAABmFtb3VudAgFAAAAB2N1cnJlbnQAAAAHYXNzZXRJZAMDCQAAAAAAAAIFAAAABWFjY3VtAAAAAAAAAAAABgkAAGYAAAACBQAAAAVhY2N1bQUAAAAHUElzc3VlZAUAAAAHUElzc3VlZAUAAAAFYWNjdW0EAAAACW1pblBJc3NlZAoAAAAAAiRsBQAAAAhwYXltZW50cwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAAAAAAAAAAAAAKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAdoYW5kbGVyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgUAAAAJbWluUElzc2VkAQAAABJjYWxjdWxhdGVVc2RuVmFsdWUAAAADAAAAB2Fzc2V0SWQAAAAGYW1vdW50AAAACGFCYWxhbmNlBAAAAAZ1c2RuSWQBAAAAILYmKcME9c5TkaQOS3UkL2SMUbH6369UKb1I0h0qsqrRBAAAAAp1c2RuV2VpZ2h0CQABkQAAAAIFAAAADUFzc2V0c1dlaWdodHMJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAIYXNzZXRJZHMFAAAABnVzZG5JZAQAAAALYXNzZXRXZWlnaHQJAAGRAAAAAgUAAAANQXNzZXRzV2VpZ2h0cwkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAhhc3NldElkcwUAAAAHYXNzZXRJZAQAAAALdXNkbkJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAABnVzZG5JZAIAAAAIX2JhbGFuY2UJAABrAAAAAwUAAAAGYW1vdW50CQAAaQAAAAIFAAAAC3VzZG5CYWxhbmNlBQAAAAp1c2RuV2VpZ2h0CQAAaQAAAAIFAAAACGFCYWxhbmNlBQAAAAthc3NldFdlaWdodAEAAAATY2hlY2tUb2tlbnNWYWxpZGl0eQAAAAEAAAAIcGF5bWVudHMKAQAAAAhoYW5kbGVyMQAAAAIAAAAFYWNjdW0AAAAHcGF5bWVudAkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCAUAAAAHcGF5bWVudAAAAAdhc3NldElkBQAAAANuaWwEAAAAA2lkcwoAAAAAAiRsBQAAAAhwYXltZW50cwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAACGhhbmRsZXIxAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgMJAAAAAAAAAgUAAAADaWRzBQAAAANpZHMKAQAAAAhoYW5kbGVyMgAAAAIAAAAFYWNjdW0AAAAHYXNzZXRJZAMJAQAAAAIhPQAAAAIJAARPAAAAAgUAAAADaWRzBQAAAAdhc3NldElkBQAAAAR1bml0CQAAZAAAAAIFAAAABWFjY3VtAAAAAAAAAAABCQAAAgAAAAEJAAEsAAAAAgIAAAAUYXNzZXQgbm90IGF0dGFjaGVkOiAJAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB2Fzc2V0SWQEAAAABmNoZWNrcwoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAAAAAAAAAAAAAKAQAAAAUkZjFfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAhoYW5kbGVyMgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMV8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmMV8yAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoDCQAAAAAAAAIFAAAABmNoZWNrcwUAAAAGY2hlY2tzBgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQAAABNoYW5kbGVQb29sVG9rZW5zQWRkAAAABAAAAAdQSXNzdWVkAAAACHBheW1lbnRzAAAAC3VzZXJBZGRyZXNzAAAACm5lZWRDaGFuZ2UKAQAAABVnZXRUb2tlblBheW1lbnRBbW91bnQAAAABAAAAB3Rva2VuSWQKAQAAAAdoYW5kbGVyAAAAAgAAAAVhY2N1bQAAAAdwYXltZW50AwkAAAAAAAACCAUAAAAHcGF5bWVudAAAAAdhc3NldElkBQAAAAd0b2tlbklkCAUAAAAHcGF5bWVudAAAAAZhbW91bnQFAAAABWFjY3VtCgAAAAACJGwFAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAB2hhbmRsZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKCgEAAAARaGFuZGxlVG9rZW5DaGFuZ2UAAAACAAAABWFjY3VtAAAAB3Rva2VuSWQEAAAAAkJrCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAd0b2tlbklkAgAAAAhfYmFsYW5jZQQAAAAHUFN1cHBseQkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAQAAAANdG9rZW5EZWNpbWFscwkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHc3RhdGljXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAGX3NjYWxlBAAAAAJEawkBAAAACGZyYWN0aW9uAAAABAkAAGUAAAACCQEAAAAIZnJhY3Rpb24AAAAECQAAZAAAAAIFAAAAB1BTdXBwbHkFAAAAB1BJc3N1ZWQFAAAADXRva2VuRGVjaW1hbHMFAAAAB1BTdXBwbHkFAAAABERPV04FAAAADXRva2VuRGVjaW1hbHMFAAAAAkJrBQAAAA10b2tlbkRlY2ltYWxzBQAAAARET1dOBAAAAA1wYXltZW50QW1vdW50CQEAAAAVZ2V0VG9rZW5QYXltZW50QW1vdW50AAAAAQUAAAAHdG9rZW5JZAQAAAAIdG9SZXR1cm4JAABlAAAAAgMJAQAAAAIhPQAAAAIFAAAADXBheW1lbnRBbW91bnQAAAAAAAAAAAAFAAAADXBheW1lbnRBbW91bnQAAAAAAAAAAAAFAAAAAkRrBAAAAAF0AwUAAAAKbmVlZENoYW5nZQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAt1c2VyQWRkcmVzcwUAAAAIdG9SZXR1cm4FAAAAB3Rva2VuSWQFAAAAA25pbAUAAAADbmlsCQAETgAAAAIJAAROAAAAAgUAAAAFYWNjdW0FAAAAAXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAd0b2tlbklkAgAAAAhfYmFsYW5jZQkAAGQAAAACBQAAAAJCawUAAAACRGsFAAAAA25pbAoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAEWhhbmRsZVRva2VuQ2hhbmdlAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgEAAAAWaGFuZGxlUG9vbFRva2Vuc1JlZGVlbQAAAAIAAAAJUFJlZGVlbWVkAAAAC3VzZXJBZGRyZXNzCgEAAAARaGFuZGxlVG9rZW5SZWRlZW0AAAACAAAABWFjY3VtAAAAB3Rva2VuSWQEAAAAAkJrCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAd0b2tlbklkAgAAAAhfYmFsYW5jZQQAAAAHUFN1cHBseQkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAQAAAANdG9rZW5EZWNpbWFscwkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHc3RhdGljXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAGX3NjYWxlBAAAAAZhbW91bnQJAQAAAAhmcmFjdGlvbgAAAAQJAABlAAAAAgUAAAANdG9rZW5EZWNpbWFscwkBAAAACGZyYWN0aW9uAAAABAkAAGUAAAACBQAAAAdQU3VwcGx5BQAAAAlQUmVkZWVtZWQFAAAADXRva2VuRGVjaW1hbHMFAAAAB1BTdXBwbHkFAAAABERPV04FAAAAAkJrBQAAAA10b2tlbkRlY2ltYWxzBQAAAARET1dOCQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAIX2JhbGFuY2UJAABlAAAAAgUAAAACQmsFAAAABmFtb3VudAUAAAADbmlsCgEAAAASaGFuZGxlVG9rZW5SZWRlZW0yAAAAAgAAAAVhY2N1bQAAAAd0b2tlbklkBAAAAAJCawkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHdG9rZW5JZAIAAAAIX2JhbGFuY2UEAAAAB1BTdXBwbHkJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQEAAAADXRva2VuRGVjaW1hbHMJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB3Rva2VuSWQCAAAABl9zY2FsZQQAAAAGYW1vdW50CQEAAAAIZnJhY3Rpb24AAAAECQAAZQAAAAIFAAAADXRva2VuRGVjaW1hbHMJAQAAAAhmcmFjdGlvbgAAAAQJAABlAAAAAgUAAAAHUFN1cHBseQUAAAAJUFJlZGVlbWVkBQAAAA10b2tlbkRlY2ltYWxzBQAAAAdQU3VwcGx5BQAAAARET1dOBQAAAAJCawUAAAANdG9rZW5EZWNpbWFscwUAAAAERE9XTgkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAt1c2VyQWRkcmVzcwUAAAAGYW1vdW50BQAAAAd0b2tlbklkBQAAAANuaWwJAAROAAAAAgoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAEWhhbmRsZVRva2VuUmVkZWVtAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMV8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAEmhhbmRsZVRva2VuUmVkZWVtMgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMV8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmMV8yAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgkBAAAABSRmMV8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoBAAAAEmNhbGN1bGF0ZU91dEFtb3VudAAAAAUAAAAIQW1vdW50SW4AAAAHYXNzZXRJbgAAAAhhc3NldE91dAAAAAlCYWxhbmNlSW4AAAAKQmFsYW5jZU91dAQAAAAHSW5kZXhJbgkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAhhc3NldElkcwUAAAAHYXNzZXRJbgQAAAAISW5kZXhPdXQJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAIYXNzZXRJZHMFAAAACGFzc2V0T3V0AwkAAAAAAAACBQAAAAdJbmRleEluBQAAAAhJbmRleE91dAkAAAIAAAABAgAAABJpbmFsaWQgdG9rZW5zIHBhaXIJAQAAAAhmcmFjdGlvbgAAAAQFAAAACkJhbGFuY2VPdXQJAABlAAAAAgkAAZEAAAACBQAAAAZTY2FsZXMFAAAACEluZGV4T3V0CQAAbAAAAAYJAABrAAAAAwUAAAAJQmFsYW5jZUluCQABkQAAAAIFAAAABlNjYWxlcwUAAAAHSW5kZXhJbgkAAGQAAAACBQAAAAlCYWxhbmNlSW4FAAAACEFtb3VudEluCQABkQAAAAIFAAAACERlY2ltYWxzBQAAAAdJbmRleEluCQAAawAAAAMJAAGRAAAAAgUAAAANQXNzZXRzV2VpZ2h0cwUAAAAHSW5kZXhJbgAAAAAAAAAnEAkAAZEAAAACBQAAAA1Bc3NldHNXZWlnaHRzBQAAAAhJbmRleE91dAAAAAAAAAAABAkAAZEAAAACBQAAAAhEZWNpbWFscwUAAAAISW5kZXhPdXQFAAAAB0NFSUxJTkcJAAGRAAAAAgUAAAAGU2NhbGVzBQAAAAhJbmRleE91dAUAAAAERE9XTgEAAAAPZ2V0VG9rZW5CYWxhbmNlAAAAAQAAAAdhc3NldElkBAAAAAckbWF0Y2gwBQAAAAdhc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAF0BQAAAAckbWF0Y2gwCQAD8AAAAAIFAAAABHRoaXMFAAAAAXQICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlAQAAAB1jYWxjdWxhdGVDdXJyZW50QXNzZXRJbnRlcmVzdAAAAAQAAAAHYXNzZXRJZAAAAAphc3NldElkU3RyAAAACGFCYWxhbmNlAAAAFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEAAAAC3RvdGFsU3Rha2VkCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAEmdsb2JhbF9pbmRleFN0YWtlZAQAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBQAAABZ0b2tlbkVhcm5pbmdzTGFzdENoZWNrBAAAABNjdXJyZW50QmFsYW5jZURlbHRhCQAAZQAAAAIJAQAAAA9nZXRUb2tlbkJhbGFuY2UAAAABBQAAAAdhc3NldElkBQAAAAhhQmFsYW5jZQQAAAAUY3VycmVudFRva2VuRWFybmluZ3MDCQAAZgAAAAIFAAAAE2N1cnJlbnRCYWxhbmNlRGVsdGEFAAAAFXRva2VuQmFsYW5jZUxhc3RDaGVjawUAAAATY3VycmVudEJhbGFuY2VEZWx0YQUAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBAAAAAtuZXdFYXJuaW5ncwkAAGUAAAACBQAAABRjdXJyZW50VG9rZW5FYXJuaW5ncwUAAAAVdG9rZW5CYWxhbmNlTGFzdENoZWNrBAAAAAtuZXdJbnRlcmVzdAMJAAAAAAAAAgUAAAALdG90YWxTdGFrZWQAAAAAAAAAAAAAAAAAAAAAAAAJAABrAAAAAwUAAAALbmV3RWFybmluZ3MFAAAABlNjYWxlOAUAAAALdG90YWxTdGFrZWQEAAAAEWxhc3RDaGVja0ludGVyZXN0CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABFnbG9iYWxfbGFzdENoZWNrXwUAAAAKYXNzZXRJZFN0cgIAAAAJX2ludGVyZXN0CQAAZAAAAAIFAAAAEWxhc3RDaGVja0ludGVyZXN0BQAAAAtuZXdJbnRlcmVzdAEAAAALY2xhaW1SZXN1bHQAAAABAAAAB2FkZHJlc3MEAAAACmFkZHJlc3NTdHIJAAQlAAAAAQUAAAAHYWRkcmVzcwQAAAAMcHV6emxlQW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAMX2luZGV4U3Rha2VkCgEAAAAHaGFuZGxlcgAAAAIAAAAFYWNjdW0AAAAHYXNzZXRJZAQAAAAKYXNzZXRJZFN0cgkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHYXNzZXRJZAQAAAAIYUJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB2Fzc2V0SWQCAAAACF9iYWxhbmNlBAAAABZ0b2tlbkVhcm5pbmdzTGFzdENoZWNrCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABFnbG9iYWxfbGFzdENoZWNrXwUAAAAKYXNzZXRJZFN0cgIAAAAJX2Vhcm5pbmdzBAAAABRjdXJyZW50VG9rZW5JbnRlcmVzdAkBAAAAHWNhbGN1bGF0ZUN1cnJlbnRBc3NldEludGVyZXN0AAAABAUAAAAHYXNzZXRJZAUAAAAKYXNzZXRJZFN0cgUAAAAIYUJhbGFuY2UFAAAAFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEAAAAFGN1cnJlbnRUb2tlbkVhcm5pbmdzCQABlgAAAAEJAARMAAAAAgUAAAAWdG9rZW5FYXJuaW5nc0xhc3RDaGVjawkABEwAAAACCQAAZQAAAAIJAQAAAA9nZXRUb2tlbkJhbGFuY2UAAAABBQAAAAdhc3NldElkBQAAAAhhQmFsYW5jZQUAAAADbmlsBAAAAAxyZXdhcmRBbW91bnQJAABrAAAAAwUAAAAMcHV6emxlQW1vdW50CQAAZQAAAAIFAAAAFGN1cnJlbnRUb2tlbkludGVyZXN0CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAAC19sYXN0Q2hlY2tfBQAAAAphc3NldElkU3RyAgAAAAlfaW50ZXJlc3QFAAAABlNjYWxlOAQAAAAIdHJhbnNmZXIDCQAAAAAAAAIFAAAADHJld2FyZEFtb3VudAAAAAAAAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAB2FkZHJlc3MFAAAADHJld2FyZEFtb3VudAUAAAAHYXNzZXRJZAUAAAADbmlsCQAFFAAAAAIJAAROAAAAAgkABE4AAAACCAUAAAAFYWNjdW0AAAACXzEFAAAACHRyYW5zZmVyCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAARZ2xvYmFsX2xhc3RDaGVja18FAAAACmFzc2V0SWRTdHICAAAACV9lYXJuaW5ncwkAAGUAAAACBQAAABRjdXJyZW50VG9rZW5FYXJuaW5ncwUAAAAMcmV3YXJkQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAARZ2xvYmFsX2xhc3RDaGVja18FAAAACmFzc2V0SWRTdHICAAAACV9pbnRlcmVzdAUAAAAUY3VycmVudFRva2VuSW50ZXJlc3QJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAAC19sYXN0Q2hlY2tfBQAAAAphc3NldElkU3RyAgAAAAlfaW50ZXJlc3QFAAAAFGN1cnJlbnRUb2tlbkludGVyZXN0BQAAAANuaWwJAABkAAAAAggFAAAABWFjY3VtAAAAAl8yCQEAAAASY2FsY3VsYXRlVXNkblZhbHVlAAAAAwUAAAAHYXNzZXRJZAUAAAAMcmV3YXJkQW1vdW50BQAAAAhhQmFsYW5jZQQAAAAFYWNjdW0KAAAAAAIkbAUAAAAMZWFybmVkQXNzZXRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAkABRQAAAACBQAAAANuaWwAAAAAAAAAAAAKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAdoYW5kbGVyAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgkABE4AAAACCAUAAAAFYWNjdW0AAAACXzEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAATX2NsYWltZWRSZXdhcmRWYWx1ZQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAATX2NsYWltZWRSZXdhcmRWYWx1ZQgFAAAABWFjY3VtAAAAAl8yCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACl9sYXN0Q2xhaW0IBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAANuaWwBAAAAEGluZGV4U3Rha2VSZXN1bHQAAAACAAAACmFkZHJlc3NTdHIAAAAGYW1vdW50BAAAAAJsaQkBAAAAC2NsYWltUmVzdWx0AAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAAKYWRkcmVzc1N0cgkABE4AAAACBQAAAAJsaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACBQAAAAphZGRyZXNzU3RyAgAAAAxfaW5kZXhTdGFrZWQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAADF9pbmRleFN0YWtlZAUAAAAGYW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQFAAAABmFtb3VudAUAAAADbmlsAAAACQAAAAFpAQAAAAdwcmVJbml0AAAAAAoBAAAAB2hhbmRsZXIAAAACAAAABWFjY3VtAAAACGFzc2V0TnVtAwkAAGcAAAACBQAAAAhhc3NldE51bQUAAAABVAUAAAAFYWNjdW0JAAROAAAAAgUAAAAFYWNjdW0JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABCQABkQAAAAIFAAAACGFzc2V0SWRzBQAAAAhhc3NldE51bQIAAAAGX3NjYWxlCQABkQAAAAIFAAAABlNjYWxlcwUAAAAIYXNzZXROdW0JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABCQABkQAAAAIFAAAACGFzc2V0SWRzBQAAAAhhc3NldE51bQIAAAAHX3dlaWdodAkAAZEAAAACBQAAAA1Bc3NldHNXZWlnaHRzBQAAAAhhc3NldE51bQUAAAADbmlsCgAAAAACJGwJAARMAAAAAgAAAAAAAAAAAAkABEwAAAACAAAAAAAAAAABCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAAAwkABEwAAAACAAAAAAAAAAAECQAETAAAAAIAAAAAAAAAAAUJAARMAAAAAgAAAAAAAAAABgkABEwAAAACAAAAAAAAAAAHCQAETAAAAAIAAAAAAAAAAAgJAARMAAAAAgAAAAAAAAAACQUAAAADbmlsCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAHaGFuZGxlcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAABaQEAAAAGZGVJbml0AAAAAAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAAphZG1pbiBvbmx5CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABBnbG9iYWxfd2FzSW5pdGVkAAAAAAAAAAAABQAAAANuaWwAAAABaQEAAAAEaW5pdAAAAAAKAQAAAAtwcmVwYXJlTGlzdAAAAAAKAQAAAAdoYW5kbGVyAAAAAgAAAAVhY2N1bQAAAAFuCQAETgAAAAIFAAAABWFjY3VtCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQgFAAAAAW4AAAAHYXNzZXRJZAIAAAAIX2JhbGFuY2UIBQAAAAFuAAAABmFtb3VudAUAAAADbmlsCgAAAAACJGwIBQAAAAFpAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAHaGFuZGxlcgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoKAQAAABljYWxjdWxhdGVQb29sVG9rZW5zQW1vdW50AAAAAQAAAAhwYXltZW50cwoBAAAAB2hhbmRsZXIAAAACAAAABWFjY3VtAAAAA3BtdAQAAAAHYXNzZXRJZAgFAAAAA3BtdAAAAAdhc3NldElkCgEAAAAIaGFuZGxlcjIAAAACAAAABWFjY3VtAAAAAW4DCQAAAAAAAAIFAAAAAW4FAAAAB2Fzc2V0SWQJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAIYXNzZXRJZHMFAAAAAW4FAAAABWFjY3VtBAAAAAVUb2tlbgoAAAAAAiRsBQAAAAhhc3NldElkcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAAAAAAAAAAAAEKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAhoYW5kbGVyMgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyAxMAkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoJAABoAAAAAgUAAAAFYWNjdW0JAABsAAAABggFAAAAA3BtdAAAAAZhbW91bnQJAAGRAAAAAgUAAAAIRGVjaW1hbHMFAAAABVRva2VuCQABkQAAAAIFAAAADUFzc2V0c1dlaWdodHMFAAAABVRva2VuBQAAABVBc3NldHNXZWlnaHRzRGVjaW1hbHMAAAAAAAAAAAEFAAAABUZMT09SCgAAAAACJGwFAAAACHBheW1lbnRzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAQoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAB2hhbmRsZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAwkAAGYAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAEGdsb2JhbF93YXNJbml0ZWQAAAAAAAAAAAAJAAACAAAAAQIAAAATcG9vbCBhbHJlYWR5IGluaXRlZAQAAAARaW5pdGlhbFBvb2xUb2tlbnMJAQAAABljYWxjdWxhdGVQb29sVG9rZW5zQW1vdW50AAAAAQgFAAAAAWkAAAAIcGF5bWVudHMEAAAADnBvb2xUb2tlbklzc3VlCQAEQwAAAAcCAAAAB1B1enpsZTUCAAAAFlB1enpsZSBTd2FwIFBvb2wgVG9rZW4FAAAAEWluaXRpYWxQb29sVG9rZW5zBQAAABFQb29sVG9rZW5EZWNpbWFscwYFAAAABHVuaXQAAAAAAAAAAAAEAAAAC3Bvb2xUb2tlbklkCQAEOAAAAAEFAAAADnBvb2xUb2tlbklzc3VlCQAETgAAAAIJAQAAAAtwcmVwYXJlTGlzdAAAAAAJAARMAAAAAgUAAAAOcG9vbFRva2VuSXNzdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAF2dsb2JhbF9wb29sVG9rZW5fYW1vdW50BQAAABFpbml0aWFsUG9vbFRva2VucwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAQZ2xvYmFsX3dhc0luaXRlZAAAAAAAAAAAAQkABEwAAAACCQEAAAALQmluYXJ5RW50cnkAAAACAgAAABNnbG9iYWxfcG9vbFRva2VuX2lkBQAAAAtwb29sVG9rZW5JZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAEWluaXRpYWxQb29sVG9rZW5zBQAAAAtwb29sVG9rZW5JZAUAAAADbmlsAAAAAWkBAAAADWdlbmVyYXRlSW5kZXgAAAABAAAACm5lZWRDaGFuZ2UDCQEAAAACIT0AAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzBQAAAAFUCQAAAgAAAAEJAAEsAAAAAgIAAAA7eW91IG5lZWQgdG8gYXR0YWNoIGFsbCBwb29sIHRva2Vucy4gYW1vdW50IG9mIHBvb2wgdG9rZW5zOiAJAAGkAAAAAQUAAAABVAMJAQAAAAEhAAAAAQkBAAAAE2NoZWNrVG9rZW5zVmFsaWRpdHkAAAABCAUAAAABaQAAAAhwYXltZW50cwkAAAIAAAABAgAAABV3cm9uZyBhc3NldHMgYXR0YWNoZWQEAAAAB1BJc3N1ZWQJAQAAAA1nZXRNaW5QSXNzdWVkAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMEAAAAB3JlaXNzdWUJAQAAAAdSZWlzc3VlAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNTcpAAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAUAAAAHUElzc3VlZAYEAAAABnJlc3VsdAkBAAAAE2hhbmRsZVBvb2xUb2tlbnNBZGQAAAAEBQAAAAdQSXNzdWVkCAUAAAABaQAAAAhwYXltZW50cwgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyBQAAAApuZWVkQ2hhbmdlCQAFFAAAAAIJAAROAAAAAgUAAAAGcmVzdWx0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAHUElzc3VlZAkBAAAADHRyeUdldEJpbmFyeQAAAAECAAAAE2dsb2JhbF9wb29sVG9rZW5faWQJAARMAAAAAgUAAAAHcmVpc3N1ZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAXZ2xvYmFsX3Bvb2xUb2tlbl9hbW91bnQJAABkAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAUAAAAHUElzc3VlZAUAAAADbmlsBQAAAAdQSXNzdWVkAAAAAWkBAAAACnN0YWtlSW5kZXgAAAAABAAAAAphZGRyZXNzU3RyCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgQAAAADcG10CQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkBAAAAAiE9AAAAAgkBAAAABXZhbHVlAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQEAAAAMdHJ5R2V0QmluYXJ5AAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAkAAAIAAAABAgAAABR3cm9uZyBhc3NldCBhdHRhY2hlZAkBAAAAEGluZGV4U3Rha2VSZXN1bHQAAAACBQAAAAphZGRyZXNzU3RyCAUAAAADcG10AAAABmFtb3VudAAAAAFpAQAAAAx1bnN0YWtlSW5kZXgAAAABAAAADHB1enpsZUFtb3VudAQAAAAKYWRkcmVzc1N0cgkABCUAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIEAAAAD3B1enpsZUF2YWlsYWJsZQkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAADF9pbmRleFN0YWtlZAMJAABmAAAAAgUAAAAMcHV6emxlQW1vdW50BQAAAA9wdXp6bGVBdmFpbGFibGUJAAACAAAAAQIAAAAleW91IGRvbid0IGhhdmUgaW5kZXggdG9rZW5zIGF2YWlsYWJsZQkABE4AAAACCQEAAAALY2xhaW1SZXN1bHQAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAMX2luZGV4U3Rha2VkCQAAZQAAAAIFAAAAD3B1enpsZUF2YWlsYWJsZQUAAAAMcHV6emxlQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQJAABlAAAAAgkBAAAADXRyeUdldEludGVnZXIAAAABAgAAABJnbG9iYWxfaW5kZXhTdGFrZWQFAAAADHB1enpsZUFtb3VudAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAADHB1enpsZUFtb3VudAkBAAAAEUBleHRyTmF0aXZlKDEwNTcpAAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAUAAAADbmlsAAAAAWkBAAAAEWNsYWltSW5kZXhSZXdhcmRzAAAAAAkBAAAAC2NsYWltUmVzdWx0AAAAAQgFAAAAAWkAAAAGY2FsbGVyAAAAAWkBAAAAC3JlZGVlbUluZGV4AAAAAQAAAAxzZW5kVG9PcmlnaW4EAAAAA3BtdAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAkBAAAADHRyeUdldEJpbmFyeQAAAAECAAAAE2dsb2JhbF9wb29sVG9rZW5faWQJAAACAAAAAQIAAAAecGxlYXNlIGF0dGFjaCBwb29sIHNoYXJlIHRva2VuBAAAAAlQUmVkZWVtZWQIBQAAAANwbXQAAAAGYW1vdW50BAAAAAZyZXN1bHQJAQAAABZoYW5kbGVQb29sVG9rZW5zUmVkZWVtAAAAAgUAAAAJUFJlZGVlbWVkAwUAAAAMc2VuZFRvT3JpZ2luCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIIBQAAAAFpAAAABmNhbGxlcgkABE4AAAACBQAAAAZyZXN1bHQJAARMAAAAAgkBAAAABEJ1cm4AAAACCQEAAAAMdHJ5R2V0QmluYXJ5AAAAAQIAAAATZ2xvYmFsX3Bvb2xUb2tlbl9pZAUAAAAJUFJlZGVlbWVkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAkAAGUAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAAF2dsb2JhbF9wb29sVG9rZW5fYW1vdW50BQAAAAlQUmVkZWVtZWQFAAAAA25pbAAAAAFpAQAAAARzd2FwAAAAAgAAAAhhc3NldE91dAAAAAdtaW5pbXVtBAAAAANwbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAACEFtb3VudEluCQEAAAAFdmFsdWUAAAABCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQEAAAAB0Fzc2V0SW4IBQAAAANwbXQAAAAHYXNzZXRJZAQAAAAIQXNzZXRPdXQJAQAAAA1nZXRBc3NldEJ5dGVzAAAAAQUAAAAIYXNzZXRPdXQEAAAACXB1enpsZUZlZQkAAAAAAAACCAUAAAABaQAAAAZjYWxsZXIIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgQAAAAOQXNzZXRJbkJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB0Fzc2V0SW4CAAAACF9iYWxhbmNlBAAAAA9Bc3NldE91dEJhbGFuY2UJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACGFzc2V0T3V0AgAAAAhfYmFsYW5jZQQAAAAJQW1vdW50T3V0CQEAAAASY2FsY3VsYXRlT3V0QW1vdW50AAAABQUAAAAIQW1vdW50SW4FAAAAB0Fzc2V0SW4FAAAACEFzc2V0T3V0BQAAAA5Bc3NldEluQmFsYW5jZQUAAAAPQXNzZXRPdXRCYWxhbmNlBAAAAAlmZWVBbW91bnQJAABrAAAAAwUAAAAJQW1vdW50T3V0BQAAAANGZWUFAAAACEZlZVNjYWxlBAAAABFwcm90b2NvbEZlZUFtb3VudAkAAGsAAAADBQAAAAlmZWVBbW91bnQAAAAAAAAAACgAAAAAAAAAAGQEAAAADmNsZWFuQW1vdW50T3V0CQAAZQAAAAIFAAAACUFtb3VudE91dAUAAAAJZmVlQW1vdW50AwkAAGYAAAACBQAAAAdtaW5pbXVtBQAAAA5jbGVhbkFtb3VudE91dAkAAAIAAAABCQABLAAAAAICAAAAK2Ftb3VudCB0byByZWNpZXZlIGlzIGxvd2VyIHRoYW4gZ2l2ZW4gb25lOiAJAAGkAAAAAQUAAAAOY2xlYW5BbW91bnRPdXQDCQAAZgAAAAIAAAAAAAAAJxAFAAAACEFtb3VudEluCQAAAgAAAAECAAAAHHN1bSB0byBleGNoYW5nZSBpcyB0b28gc21hbGwDCQAAZgAAAAIAAAAAAAAAAAAJAABlAAAAAgUAAAAPQXNzZXRPdXRCYWxhbmNlBQAAAAlBbW91bnRPdXQJAAACAAAAAQIAAAAbY29udHJhY3QgaXMgb3V0IG9mIHJlc2VydmVzBAAAAAxuZXdCYWxhbmNlSW4JAABkAAAAAgUAAAAOQXNzZXRJbkJhbGFuY2UFAAAACEFtb3VudEluBAAAAA1uZXdCYWxhbmNlT3V0CQAAZQAAAAIFAAAAD0Fzc2V0T3V0QmFsYW5jZQUAAAAJQW1vdW50T3V0AwUAAAAJcHV6emxlRmVlBAAAAA5jYXNoYmFja0Ftb3VudAkAAGkAAAACBQAAABFwcm90b2NvbEZlZUFtb3VudAAAAAAAAAAAAgQAAAALdXNkbkFzc2V0SWQBAAAAILYmKcME9c5TkaQOS3UkL2SMUbH6369UKb1I0h0qsqrRBAAAAAt1c2RuQmFsYW5jZQMJAAAAAAAAAgUAAAAHQXNzZXRJbgUAAAALdXNkbkFzc2V0SWQFAAAADG5ld0JhbGFuY2VJbgMJAAAAAAAAAgUAAAAIQXNzZXRPdXQFAAAAC3VzZG5Bc3NldElkBQAAAA1uZXdCYWxhbmNlT3V0CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAdnbG9iYWxfCQEAAAAOZ2V0QXNzZXRTdHJpbmcAAAABBQAAAAt1c2RuQXNzZXRJZAIAAAAIX2JhbGFuY2UEAAAAEnVzZG5DYXNoYmFja0Ftb3VudAMJAAAAAAAAAgUAAAAIQXNzZXRPdXQFAAAAC3VzZG5Bc3NldElkBQAAAA5jYXNoYmFja0Ftb3VudAkBAAAAEmNhbGN1bGF0ZU91dEFtb3VudAAAAAUFAAAADmNhc2hiYWNrQW1vdW50BQAAAAhBc3NldE91dAUAAAALdXNkbkFzc2V0SWQFAAAADW5ld0JhbGFuY2VPdXQFAAAAC3VzZG5CYWxhbmNlBAAAABF1c2RuQmFsYW5jZUNoYW5nZQMJAQAAAAIhPQAAAAIFAAAACEFzc2V0T3V0BQAAAAt1c2RuQXNzZXRJZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAAJYAAAAAQUAAAALdXNkbkFzc2V0SWQCAAAACF9iYWxhbmNlCQAAZQAAAAIFAAAAC3VzZG5CYWxhbmNlBQAAABJ1c2RuQ2FzaGJhY2tBbW91bnQFAAAAA25pbAUAAAADbmlsBAAAAApwdXp6bGVQb29sCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXkcbqKep5Zw/ZhO8ydpSzwHVC5DWDwdNYBAAAAA1wdXp6bGVBc3NldElkAQAAACDxGv4l/vaZOPRpKsTf4RLWR7LGyg66Nwmvd20fjqLlYwQAAAAUcHV6emxlQ2FzaGJhY2tBbW91bnQEAAAAByRtYXRjaDAJAAP9AAAABAUAAAAKcHV6emxlUG9vbAIAAAAEc3dhcAkABEwAAAACCQACWAAAAAEFAAAADXB1enpsZUFzc2V0SWQJAARMAAAAAgAAAAAAAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAt1c2RuQXNzZXRJZAUAAAASdXNkbkNhc2hiYWNrQW1vdW50BQAAAANuaWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAAAAAAAAAAAAAMJAAAAAAAAAgUAAAAUcHV6emxlQ2FzaGJhY2tBbW91bnQFAAAAFHB1enpsZUNhc2hiYWNrQW1vdW50CQAFFAAAAAIJAAROAAAAAgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACGFzc2V0T3V0AgAAAAhfYmFsYW5jZQkAAGQAAAACBQAAAA1uZXdCYWxhbmNlT3V0BQAAAA5jYXNoYmFja0Ftb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8JAQAAAA5nZXRBc3NldFN0cmluZwAAAAEFAAAAB0Fzc2V0SW4CAAAACF9iYWxhbmNlBQAAAAxuZXdCYWxhbmNlSW4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAA5jbGVhbkFtb3VudE91dAUAAAAIQXNzZXRPdXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABRwdXp6bGVDYXNoYmFja0Ftb3VudAUAAAANcHV6emxlQXNzZXRJZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANZ2xvYmFsX3ZvbHVtZQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAADWdsb2JhbF92b2x1bWUJAQAAABJjYWxjdWxhdGVVc2RuVmFsdWUAAAADBQAAAAdBc3NldEluBQAAAAhBbW91bnRJbgUAAAAOQXNzZXRJbkJhbGFuY2UFAAAAA25pbAUAAAARdXNkbkJhbGFuY2VDaGFuZ2UFAAAADmNsZWFuQW1vdW50T3V0CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkABRQAAAACCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwUAAAAIYXNzZXRPdXQCAAAACF9iYWxhbmNlBQAAAA1uZXdCYWxhbmNlT3V0CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwkBAAAADmdldEFzc2V0U3RyaW5nAAAAAQUAAAAHQXNzZXRJbgIAAAAIX2JhbGFuY2UFAAAADG5ld0JhbGFuY2VJbgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAADmNsZWFuQW1vdW50T3V0BQAAAAhBc3NldE91dAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANZ2xvYmFsX3ZvbHVtZQkAAGQAAAACCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAECAAAADWdsb2JhbF92b2x1bWUJAQAAABJjYWxjdWxhdGVVc2RuVmFsdWUAAAADBQAAAAdBc3NldEluBQAAAAhBbW91bnRJbgUAAAAOQXNzZXRJbkJhbGFuY2UFAAAAA25pbAUAAAAOY2xlYW5BbW91bnRPdXQAAAAAm0dC3w==",
    "height": 2899098,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FjMDaLhKif3RrQi2vTLvJnSUxFWUmi5jLqa1GVTHQruQ
Next: 5S4RzgnWXYpwnZAzkLxEq7LsnuKvs6pxkoQ4e1cRFuUS

Diff: 
Old New Differences
27 27  
28 28  let layer2Address = Address(base58'3PDVDYZiwJzK3pu8vcknuLiKCYBPx6XZntG')
29 29  
30 + func getAssetString (assetId) = match assetId {
31 +     case b: ByteVector => 
32 +         toBase58String(b)
33 +     case _ => 
34 +         "WAVES"
35 + }
36 + 
37 + 
38 + func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
39 +     then unit
40 +     else fromBase58String(assetIdStr)
41 + 
42 + 
30 43  let earnedAssets = assetIds
31 44  
32 45  func tryGetInteger (key) = match getInteger(this, key) {
46 59  
47 60  
48 61  func getCurrentTokenBalance (tokenType) = {
49 -     let tokenId = toBase58String(assetIds[tokenType])
62 +     let tokenId = getAssetString(assetIds[tokenType])
50 63      tryGetInteger((("global_" + tokenId) + "_balance"))
51 64      }
52 65  
53 66  
54 67  func calculatePIssued (amount,tokenId) = {
55 68      let Psupply = tryGetInteger("global_poolToken_amount")
56 -     let Balance = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
69 +     let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
57 70      fraction(amount, Psupply, Balance, DOWN)
58 71      }
59 72  
60 73  
61 74  func getMinPIssued (payments) = {
62 75      func handler (accum,current) =     {
63 -         let PIssued = calculatePIssued(current.amount, value(current.assetId))
76 +         let PIssued = calculatePIssued(current.amount, current.assetId)
64 77          if (if ((accum == 0))
65 78              then true
66 79              else (accum > PIssued))
72 85          let $l = payments
73 86          let $s = size($l)
74 87          let $acc0 = 0
75 -         func 1 ($a,$i) =         if (($i >= $s))
88 +         func $f0_1 ($a,$i) =         if (($i >= $s))
76 89              then $a
77 90              else handler($a, $l[$i])
78 91  
79 -         func 2 ($a,$i) =         if (($i >= $s))
92 +         func $f0_2 ($a,$i) =         if (($i >= $s))
80 93              then $a
81 94              else throw("List size exceeds 10")
82 95  
83 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
96 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
84 97          }
85 98      minPIssed
86 99      }
90 103      let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
91 104      let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
92 105      let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
93 -     let usdnBalance = tryGetInteger((("global_" + toBase58String(usdnId)) + "_balance"))
94 -     (fraction(amount, usdnBalance, usdnWeight) / (aBalance / assetWeight))
106 +     let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
107 +     fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
95 108      }
96 109  
97 110  
98 111  func checkTokensValidity (payments) = {
99 -     func handler1 (accum,payment) =     (accum ++ [value(payment.assetId)])
112 +     func handler1 (accum,payment) =     (accum ++ [payment.assetId])
100 113  
101 114      let ids = {
102 115          let $l = payments
103 116          let $s = size($l)
104 117          let $acc0 = nil
105 -         func 1 ($a,$i) =         if (($i >= $s))
118 +         func $f0_1 ($a,$i) =         if (($i >= $s))
106 119              then $a
107 120              else handler1($a, $l[$i])
108 121  
109 -         func 2 ($a,$i) =         if (($i >= $s))
122 +         func $f0_2 ($a,$i) =         if (($i >= $s))
110 123              then $a
111 124              else throw("List size exceeds 10")
112 125  
113 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
126 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
114 127          }
115 128      if ((ids == ids))
116 129          then {
117 130              func handler2 (accum,assetId) =             if ((indexOf(ids, assetId) != unit))
118 131                  then (accum + 1)
119 -                 else throw(("asset not attached: " + toBase58String(assetId)))
132 +                 else throw(("asset not attached: " + getAssetString(assetId)))
120 133  
121 134              let checks = {
122 135                  let $l = assetIds
123 136                  let $s = size($l)
124 137                  let $acc0 = 0
125 -                 func 1 ($a,$i) =                 if (($i >= $s))
138 +                 func $f1_1 ($a,$i) =                 if (($i >= $s))
126 139                      then $a
127 140                      else handler2($a, $l[$i])
128 141  
129 -                 func 2 ($a,$i) =                 if (($i >= $s))
142 +                 func $f1_2 ($a,$i) =                 if (($i >= $s))
130 143                      then $a
131 144                      else throw("List size exceeds 10")
132 145  
133 -                 2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
146 +                 $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
134 147                  }
135 148              if ((checks == checks))
136 149                  then true
149 162          let $l = payments
150 163          let $s = size($l)
151 164          let $acc0 = 0
152 -         func 1 ($a,$i) =         if (($i >= $s))
165 +         func $f0_1 ($a,$i) =         if (($i >= $s))
153 166              then $a
154 167              else handler($a, $l[$i])
155 168  
156 -         func 2 ($a,$i) =         if (($i >= $s))
169 +         func $f0_2 ($a,$i) =         if (($i >= $s))
157 170              then $a
158 171              else throw("List size exceeds 10")
159 172  
160 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
173 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
161 174          }
162 175  
163 176      func handleTokenChange (accum,tokenId) =     {
164 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
177 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165 178          let PSupply = tryGetInteger("global_poolToken_amount")
166 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
179 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
167 180          let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, DOWN) - tokenDecimals), Bk, tokenDecimals, DOWN)
168 181          let paymentAmount = getTokenPaymentAmount(tokenId)
169 -         if ((1000 >= paymentAmount))
170 -             then throw("the value is too small")
171 -             else {
172 -                 let toReturn = ((if ((paymentAmount != 0))
173 -                     then paymentAmount
174 -                     else 0) - Dk)
175 -                 let t = if (needChange)
176 -                     then [ScriptTransfer(userAddress, toReturn, tokenId)]
177 -                     else nil
178 -                 ((accum ++ t) ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk + Dk))])
179 -                 }
182 +         let toReturn = ((if ((paymentAmount != 0))
183 +             then paymentAmount
184 +             else 0) - Dk)
185 +         let t = if (needChange)
186 +             then [ScriptTransfer(userAddress, toReturn, tokenId)]
187 +             else nil
188 +         ((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
180 189          }
181 190  
182 191      let $l = assetIds
183 192      let $s = size($l)
184 193      let $acc0 = nil
185 -     func 1 ($a,$i) =     if (($i >= $s))
194 +     func $f0_1 ($a,$i) =     if (($i >= $s))
186 195          then $a
187 196          else handleTokenChange($a, $l[$i])
188 197  
189 -     func 2 ($a,$i) =     if (($i >= $s))
198 +     func $f0_2 ($a,$i) =     if (($i >= $s))
190 199          then $a
191 200          else throw("List size exceeds 10")
192 201  
193 -     2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
202 +     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194 203      }
195 204  
196 205  
197 206  func handlePoolTokensRedeem (PRedeemed,userAddress) = {
198 207      func handleTokenRedeem (accum,tokenId) =     {
199 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
208 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
200 209          let PSupply = tryGetInteger("global_poolToken_amount")
201 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
210 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
202 211          let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
203 -         (accum ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk - amount))])
212 +         (accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount))])
204 213          }
205 214  
206 215      func handleTokenRedeem2 (accum,tokenId) =     {
207 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
216 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
208 217          let PSupply = tryGetInteger("global_poolToken_amount")
209 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
218 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
210 219          let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
211 220          (accum ++ [ScriptTransfer(userAddress, amount, tokenId)])
212 221          }
215 224          let $l = assetIds
216 225          let $s = size($l)
217 226          let $acc0 = nil
218 -         func 1 ($a,$i) =         if (($i >= $s))
227 +         func $f0_1 ($a,$i) =         if (($i >= $s))
219 228              then $a
220 229              else handleTokenRedeem($a, $l[$i])
221 230  
222 -         func 2 ($a,$i) =         if (($i >= $s))
231 +         func $f0_2 ($a,$i) =         if (($i >= $s))
223 232              then $a
224 233              else throw("List size exceeds 10")
225 234  
226 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
235 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
227 236          } ++ {
228 237          let $l = assetIds
229 238          let $s = size($l)
230 239          let $acc0 = nil
231 -         func 1 ($a,$i) =         if (($i >= $s))
240 +         func $f1_1 ($a,$i) =         if (($i >= $s))
232 241              then $a
233 242              else handleTokenRedeem2($a, $l[$i])
234 243  
235 -         func 2 ($a,$i) =         if (($i >= $s))
244 +         func $f1_2 ($a,$i) =         if (($i >= $s))
236 245              then $a
237 246              else throw("List size exceeds 10")
238 247  
239 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
248 +         $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
240 249          })
241 250      }
242 251  
246 255      let IndexOut = value(indexOf(assetIds, assetOut))
247 256      if ((IndexIn == IndexOut))
248 257          then throw("inalid tokens pair")
249 -         else fraction(BalanceOut, (Scales[IndexOut] - pow(((BalanceIn * Scales[IndexIn]) / (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], FLOOR)), Scales[IndexOut], DOWN)
258 +         else fraction(BalanceOut, (Scales[IndexOut] - pow(fraction(BalanceIn, Scales[IndexIn], (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], CEILING)), Scales[IndexOut], DOWN)
250 259      }
260 + 
261 + 
262 + func getTokenBalance (assetId) = match assetId {
263 +     case t: ByteVector => 
264 +         assetBalance(this, t)
265 +     case _ => 
266 +         wavesBalance(this).available
267 + }
251 268  
252 269  
253 270  func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
254 271      let totalStaked = tryGetInteger("global_indexStaked")
255 272      let tokenBalanceLastCheck = tokenEarningsLastCheck
256 -     let currentBalanceDelta = (assetBalance(this, assetId) - aBalance)
273 +     let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
257 274      let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
258 275          then currentBalanceDelta
259 276          else tokenBalanceLastCheck
270 287      let addressStr = toString(address)
271 288      let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
272 289      func handler (accum,assetId) =     {
273 -         let assetIdStr = toBase58String(assetId)
274 -         let aBalance = tryGetInteger((("global_" + toBase58String(assetId)) + "_balance"))
290 +         let assetIdStr = getAssetString(assetId)
291 +         let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
275 292          let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
276 293          let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
277 -         let currentTokenEarnings = max([tokenEarningsLastCheck, (assetBalance(this, assetId) - aBalance)])
294 +         let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
278 295          let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
279 296          let transfer = if ((rewardAmount == 0))
280 297              then nil
286 303          let $l = earnedAssets
287 304          let $s = size($l)
288 305          let $acc0 = $Tuple2(nil, 0)
289 -         func 1 ($a,$i) =         if (($i >= $s))
306 +         func $f0_1 ($a,$i) =         if (($i >= $s))
290 307              then $a
291 308              else handler($a, $l[$i])
292 309  
293 -         func 2 ($a,$i) =         if (($i >= $s))
310 +         func $f0_2 ($a,$i) =         if (($i >= $s))
294 311              then $a
295 312              else throw("List size exceeds 10")
296 313  
297 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
314 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
298 315          }
299 316      (accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
300 317      }
310 327  func preInit () = {
311 328      func handler (accum,assetNum) =     if ((assetNum >= T))
312 329          then accum
313 -         else (accum ++ [IntegerEntry((("static_" + toBase58String(assetIds[0])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + toBase58String(assetIds[0])) + "_weight"), AssetsWeights[assetNum])])
330 +         else (accum ++ [IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_weight"), AssetsWeights[assetNum])])
314 331  
315 332      let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
316 333      let $s = size($l)
317 334      let $acc0 = nil
318 -     func 1 ($a,$i) =     if (($i >= $s))
335 +     func $f0_1 ($a,$i) =     if (($i >= $s))
319 336          then $a
320 337          else handler($a, $l[$i])
321 338  
322 -     func 2 ($a,$i) =     if (($i >= $s))
339 +     func $f0_2 ($a,$i) =     if (($i >= $s))
323 340          then $a
324 341          else throw("List size exceeds 10")
325 342  
326 -     2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
343 +     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
327 344      }
328 345  
329 346  
338 355  @Callable(i)
339 356  func init () = {
340 357      func prepareList () =     {
341 -         func handler (accum,n) =         (accum ++ [IntegerEntry((("global_" + toBase58String(value(n.assetId))) + "_balance"), n.amount)])
358 +         func handler (accum,n) =         (accum ++ [IntegerEntry((("global_" + getAssetString(n.assetId)) + "_balance"), n.amount)])
342 359  
343 360          let $l = i.payments
344 361          let $s = size($l)
345 362          let $acc0 = nil
346 -         func 1 ($a,$i) =         if (($i >= $s))
363 +         func $f0_1 ($a,$i) =         if (($i >= $s))
347 364              then $a
348 365              else handler($a, $l[$i])
349 366  
350 -         func 2 ($a,$i) =         if (($i >= $s))
367 +         func $f0_2 ($a,$i) =         if (($i >= $s))
351 368              then $a
352 369              else throw("List size exceeds 10")
353 370  
354 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
371 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
355 372          }
356 373  
357 374      func calculatePoolTokensAmount (payments) =     {
358 375          func handler (accum,pmt) =         {
359 -             let assetId = value(pmt.assetId)
376 +             let assetId = pmt.assetId
360 377              func handler2 (accum,n) =             if ((n == assetId))
361 378                  then value(indexOf(assetIds, n))
362 379                  else accum
365 382                  let $l = assetIds
366 383                  let $s = size($l)
367 384                  let $acc0 = 1
368 -                 func 1 ($a,$i) =                 if (($i >= $s))
385 +                 func $f0_1 ($a,$i) =                 if (($i >= $s))
369 386                      then $a
370 387                      else handler2($a, $l[$i])
371 388  
372 -                 func 2 ($a,$i) =                 if (($i >= $s))
389 +                 func $f0_2 ($a,$i) =                 if (($i >= $s))
373 390                      then $a
374 391                      else throw("List size exceeds 10")
375 392  
376 -                 2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393 +                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
377 394                  }
378 395              (accum * pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 1, FLOOR))
379 396              }
381 398          let $l = payments
382 399          let $s = size($l)
383 400          let $acc0 = 1
384 -         func 1 ($a,$i) =         if (($i >= $s))
401 +         func $f0_1 ($a,$i) =         if (($i >= $s))
385 402              then $a
386 403              else handler($a, $l[$i])
387 404  
388 -         func 2 ($a,$i) =         if (($i >= $s))
405 +         func $f0_2 ($a,$i) =         if (($i >= $s))
389 406              then $a
390 407              else throw("List size exceeds 10")
391 408  
392 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
409 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393 410          }
394 411  
395 412      if ((tryGetInteger("global_wasInited") > 0))
465 482  func swap (assetOut,minimum) = {
466 483      let pmt = value(i.payments[0])
467 484      let AmountIn = value(i.payments[0].amount)
468 -     let AssetIn = value(pmt.assetId)
469 -     let AssetOut = fromBase58String(assetOut)
470 -     let AssetInBalance = tryGetInteger((("global_" + toBase58String(AssetIn)) + "_balance"))
485 +     let AssetIn = pmt.assetId
486 +     let AssetOut = getAssetBytes(assetOut)
487 +     let puzzleFee = (i.caller == i.originCaller)
488 +     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
471 489      let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
472 490      let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
473 491      let feeAmount = fraction(AmountOut, Fee, FeeScale)
479 497              then throw("sum to exchange is too small")
480 498              else if ((0 > (AssetOutBalance - AmountOut)))
481 499                  then throw("contract is out of reserves")
482 -                 else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), (AssetOutBalance - AmountOut)), IntegerEntry((("global_" + toBase58String(AssetIn)) + "_balance"), (AssetInBalance + AmountIn)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
500 +                 else {
501 +                     let newBalanceIn = (AssetInBalance + AmountIn)
502 +                     let newBalanceOut = (AssetOutBalance - AmountOut)
503 +                     if (puzzleFee)
504 +                         then {
505 +                             let cashbackAmount = (protocolFeeAmount / 2)
506 +                             let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
507 +                             let usdnBalance = if ((AssetIn == usdnAssetId))
508 +                                 then newBalanceIn
509 +                                 else if ((AssetOut == usdnAssetId))
510 +                                     then newBalanceOut
511 +                                     else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
512 +                             let usdnCashbackAmount = if ((AssetOut == usdnAssetId))
513 +                                 then cashbackAmount
514 +                                 else calculateOutAmount(cashbackAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
515 +                             let usdnBalanceChange = if ((AssetOut != usdnAssetId))
516 +                                 then [IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnCashbackAmount))]
517 +                                 else nil
518 +                             let puzzlePool = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
519 +                             let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
520 +                             let puzzleCashbackAmount =                             match reentrantInvoke(puzzlePool, "swap", [toBase58String(puzzleAssetId), 0], [AttachedPayment(usdnAssetId, usdnCashbackAmount)]) {
521 +                                 case x: Int => 
522 +                                     x
523 +                                 case _ => 
524 +                                     0
525 +                             }
526 +                             if ((puzzleCashbackAmount == puzzleCashbackAmount))
527 +                                 then $Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + cashbackAmount)), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), ScriptTransfer(i.caller, puzzleCashbackAmount, puzzleAssetId), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ usdnBalanceChange), cleanAmountOut)
528 +                                 else throw("Strict value is not equal to itself.")
529 +                             }
530 +                         else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
531 +                     }
483 532      }
484 533  
485 534  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let T = 10
5 5  
6 6  let assetIds = [base58'EfdcPXw7o7rrrPWmMBr2sa66Dk95n56622ngujbaGhye', base58'B543bkZcZNo5GrUnd5fxB6EwkiJhAVyKCkPn5nWzZC2s', base58'5bcAh1r6ydrpk44FEmrnmJQjumgKo3NKEEsyfgmZYwxC', base58'54UszKAj3MtYmkdRCqSXAcaQLaVALBy7CCrVkfmfzhxR', base58'5nk9JW8yRonyNBEwhChoksLxpBECVxbVLqaNuQs9EJn1', base58'Dfx6LJPndo1h5Umk9SofDhMDs6Gi8cHyT3873pSgoASU', base58'4kwKSf4Bx2Wq8YxKnVZBhcEHyXzEtJ2pw7ixfJgirwf2', base58'Ej7kEzxvUsoiMtJKiuFpMD9tC6qfCADpZynyW2vqcWW', base58'C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS', base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p']
7 7  
8 8  let AssetsWeights = [10, 10, 10, 10, 10, 10, 10, 10, 10, 10]
9 9  
10 10  let AssetsWeightsDecimals = 2
11 11  
12 12  let PoolTokenDecimals = 0
13 13  
14 14  let Decimals = [8, 8, 8, 8, 8, 8, 8, 8, 8, 6]
15 15  
16 16  let Scales = [100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000]
17 17  
18 18  let Fee = 200
19 19  
20 20  let Scale = 10000
21 21  
22 22  let Scale8 = 100000000
23 23  
24 24  let FeeScale = 10000
25 25  
26 26  let feeAggregator = Address(base58'3PBmAwjkwsM83KQhjSMNZvgdFeYeLz9tdBD')
27 27  
28 28  let layer2Address = Address(base58'3PDVDYZiwJzK3pu8vcknuLiKCYBPx6XZntG')
29 29  
30 + func getAssetString (assetId) = match assetId {
31 +     case b: ByteVector => 
32 +         toBase58String(b)
33 +     case _ => 
34 +         "WAVES"
35 + }
36 + 
37 + 
38 + func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
39 +     then unit
40 +     else fromBase58String(assetIdStr)
41 + 
42 + 
30 43  let earnedAssets = assetIds
31 44  
32 45  func tryGetInteger (key) = match getInteger(this, key) {
33 46      case b: Int => 
34 47          b
35 48      case _ => 
36 49          0
37 50  }
38 51  
39 52  
40 53  func tryGetBinary (key) = match getBinary(this, key) {
41 54      case b: ByteVector => 
42 55          b
43 56      case _ => 
44 57          base58''
45 58  }
46 59  
47 60  
48 61  func getCurrentTokenBalance (tokenType) = {
49 -     let tokenId = toBase58String(assetIds[tokenType])
62 +     let tokenId = getAssetString(assetIds[tokenType])
50 63      tryGetInteger((("global_" + tokenId) + "_balance"))
51 64      }
52 65  
53 66  
54 67  func calculatePIssued (amount,tokenId) = {
55 68      let Psupply = tryGetInteger("global_poolToken_amount")
56 -     let Balance = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
69 +     let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
57 70      fraction(amount, Psupply, Balance, DOWN)
58 71      }
59 72  
60 73  
61 74  func getMinPIssued (payments) = {
62 75      func handler (accum,current) =     {
63 -         let PIssued = calculatePIssued(current.amount, value(current.assetId))
76 +         let PIssued = calculatePIssued(current.amount, current.assetId)
64 77          if (if ((accum == 0))
65 78              then true
66 79              else (accum > PIssued))
67 80              then PIssued
68 81              else accum
69 82          }
70 83  
71 84      let minPIssed = {
72 85          let $l = payments
73 86          let $s = size($l)
74 87          let $acc0 = 0
75 -         func 1 ($a,$i) =         if (($i >= $s))
88 +         func $f0_1 ($a,$i) =         if (($i >= $s))
76 89              then $a
77 90              else handler($a, $l[$i])
78 91  
79 -         func 2 ($a,$i) =         if (($i >= $s))
92 +         func $f0_2 ($a,$i) =         if (($i >= $s))
80 93              then $a
81 94              else throw("List size exceeds 10")
82 95  
83 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
96 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
84 97          }
85 98      minPIssed
86 99      }
87 100  
88 101  
89 102  func calculateUsdnValue (assetId,amount,aBalance) = {
90 103      let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
91 104      let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
92 105      let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
93 -     let usdnBalance = tryGetInteger((("global_" + toBase58String(usdnId)) + "_balance"))
94 -     (fraction(amount, usdnBalance, usdnWeight) / (aBalance / assetWeight))
106 +     let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
107 +     fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
95 108      }
96 109  
97 110  
98 111  func checkTokensValidity (payments) = {
99 -     func handler1 (accum,payment) =     (accum ++ [value(payment.assetId)])
112 +     func handler1 (accum,payment) =     (accum ++ [payment.assetId])
100 113  
101 114      let ids = {
102 115          let $l = payments
103 116          let $s = size($l)
104 117          let $acc0 = nil
105 -         func 1 ($a,$i) =         if (($i >= $s))
118 +         func $f0_1 ($a,$i) =         if (($i >= $s))
106 119              then $a
107 120              else handler1($a, $l[$i])
108 121  
109 -         func 2 ($a,$i) =         if (($i >= $s))
122 +         func $f0_2 ($a,$i) =         if (($i >= $s))
110 123              then $a
111 124              else throw("List size exceeds 10")
112 125  
113 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
126 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
114 127          }
115 128      if ((ids == ids))
116 129          then {
117 130              func handler2 (accum,assetId) =             if ((indexOf(ids, assetId) != unit))
118 131                  then (accum + 1)
119 -                 else throw(("asset not attached: " + toBase58String(assetId)))
132 +                 else throw(("asset not attached: " + getAssetString(assetId)))
120 133  
121 134              let checks = {
122 135                  let $l = assetIds
123 136                  let $s = size($l)
124 137                  let $acc0 = 0
125 -                 func 1 ($a,$i) =                 if (($i >= $s))
138 +                 func $f1_1 ($a,$i) =                 if (($i >= $s))
126 139                      then $a
127 140                      else handler2($a, $l[$i])
128 141  
129 -                 func 2 ($a,$i) =                 if (($i >= $s))
142 +                 func $f1_2 ($a,$i) =                 if (($i >= $s))
130 143                      then $a
131 144                      else throw("List size exceeds 10")
132 145  
133 -                 2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
146 +                 $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
134 147                  }
135 148              if ((checks == checks))
136 149                  then true
137 150                  else throw("Strict value is not equal to itself.")
138 151              }
139 152          else throw("Strict value is not equal to itself.")
140 153      }
141 154  
142 155  
143 156  func handlePoolTokensAdd (PIssued,payments,userAddress,needChange) = {
144 157      func getTokenPaymentAmount (tokenId) =     {
145 158          func handler (accum,payment) =         if ((payment.assetId == tokenId))
146 159              then payment.amount
147 160              else accum
148 161  
149 162          let $l = payments
150 163          let $s = size($l)
151 164          let $acc0 = 0
152 -         func 1 ($a,$i) =         if (($i >= $s))
165 +         func $f0_1 ($a,$i) =         if (($i >= $s))
153 166              then $a
154 167              else handler($a, $l[$i])
155 168  
156 -         func 2 ($a,$i) =         if (($i >= $s))
169 +         func $f0_2 ($a,$i) =         if (($i >= $s))
157 170              then $a
158 171              else throw("List size exceeds 10")
159 172  
160 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
173 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
161 174          }
162 175  
163 176      func handleTokenChange (accum,tokenId) =     {
164 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
177 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165 178          let PSupply = tryGetInteger("global_poolToken_amount")
166 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
179 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
167 180          let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, DOWN) - tokenDecimals), Bk, tokenDecimals, DOWN)
168 181          let paymentAmount = getTokenPaymentAmount(tokenId)
169 -         if ((1000 >= paymentAmount))
170 -             then throw("the value is too small")
171 -             else {
172 -                 let toReturn = ((if ((paymentAmount != 0))
173 -                     then paymentAmount
174 -                     else 0) - Dk)
175 -                 let t = if (needChange)
176 -                     then [ScriptTransfer(userAddress, toReturn, tokenId)]
177 -                     else nil
178 -                 ((accum ++ t) ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk + Dk))])
179 -                 }
182 +         let toReturn = ((if ((paymentAmount != 0))
183 +             then paymentAmount
184 +             else 0) - Dk)
185 +         let t = if (needChange)
186 +             then [ScriptTransfer(userAddress, toReturn, tokenId)]
187 +             else nil
188 +         ((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
180 189          }
181 190  
182 191      let $l = assetIds
183 192      let $s = size($l)
184 193      let $acc0 = nil
185 -     func 1 ($a,$i) =     if (($i >= $s))
194 +     func $f0_1 ($a,$i) =     if (($i >= $s))
186 195          then $a
187 196          else handleTokenChange($a, $l[$i])
188 197  
189 -     func 2 ($a,$i) =     if (($i >= $s))
198 +     func $f0_2 ($a,$i) =     if (($i >= $s))
190 199          then $a
191 200          else throw("List size exceeds 10")
192 201  
193 -     2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
202 +     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194 203      }
195 204  
196 205  
197 206  func handlePoolTokensRedeem (PRedeemed,userAddress) = {
198 207      func handleTokenRedeem (accum,tokenId) =     {
199 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
208 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
200 209          let PSupply = tryGetInteger("global_poolToken_amount")
201 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
210 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
202 211          let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
203 -         (accum ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk - amount))])
212 +         (accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount))])
204 213          }
205 214  
206 215      func handleTokenRedeem2 (accum,tokenId) =     {
207 -         let Bk = tryGetInteger((("global_" + toBase58String(tokenId)) + "_balance"))
216 +         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
208 217          let PSupply = tryGetInteger("global_poolToken_amount")
209 -         let tokenDecimals = tryGetInteger((("static_" + toBase58String(tokenId)) + "_scale"))
218 +         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
210 219          let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
211 220          (accum ++ [ScriptTransfer(userAddress, amount, tokenId)])
212 221          }
213 222  
214 223      ({
215 224          let $l = assetIds
216 225          let $s = size($l)
217 226          let $acc0 = nil
218 -         func 1 ($a,$i) =         if (($i >= $s))
227 +         func $f0_1 ($a,$i) =         if (($i >= $s))
219 228              then $a
220 229              else handleTokenRedeem($a, $l[$i])
221 230  
222 -         func 2 ($a,$i) =         if (($i >= $s))
231 +         func $f0_2 ($a,$i) =         if (($i >= $s))
223 232              then $a
224 233              else throw("List size exceeds 10")
225 234  
226 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
235 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
227 236          } ++ {
228 237          let $l = assetIds
229 238          let $s = size($l)
230 239          let $acc0 = nil
231 -         func 1 ($a,$i) =         if (($i >= $s))
240 +         func $f1_1 ($a,$i) =         if (($i >= $s))
232 241              then $a
233 242              else handleTokenRedeem2($a, $l[$i])
234 243  
235 -         func 2 ($a,$i) =         if (($i >= $s))
244 +         func $f1_2 ($a,$i) =         if (($i >= $s))
236 245              then $a
237 246              else throw("List size exceeds 10")
238 247  
239 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
248 +         $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
240 249          })
241 250      }
242 251  
243 252  
244 253  func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
245 254      let IndexIn = value(indexOf(assetIds, assetIn))
246 255      let IndexOut = value(indexOf(assetIds, assetOut))
247 256      if ((IndexIn == IndexOut))
248 257          then throw("inalid tokens pair")
249 -         else fraction(BalanceOut, (Scales[IndexOut] - pow(((BalanceIn * Scales[IndexIn]) / (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], FLOOR)), Scales[IndexOut], DOWN)
258 +         else fraction(BalanceOut, (Scales[IndexOut] - pow(fraction(BalanceIn, Scales[IndexIn], (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], CEILING)), Scales[IndexOut], DOWN)
250 259      }
260 + 
261 + 
262 + func getTokenBalance (assetId) = match assetId {
263 +     case t: ByteVector => 
264 +         assetBalance(this, t)
265 +     case _ => 
266 +         wavesBalance(this).available
267 + }
251 268  
252 269  
253 270  func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
254 271      let totalStaked = tryGetInteger("global_indexStaked")
255 272      let tokenBalanceLastCheck = tokenEarningsLastCheck
256 -     let currentBalanceDelta = (assetBalance(this, assetId) - aBalance)
273 +     let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
257 274      let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
258 275          then currentBalanceDelta
259 276          else tokenBalanceLastCheck
260 277      let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
261 278      let newInterest = if ((totalStaked == 0))
262 279          then 0
263 280          else fraction(newEarnings, Scale8, totalStaked)
264 281      let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
265 282      (lastCheckInterest + newInterest)
266 283      }
267 284  
268 285  
269 286  func claimResult (address) = {
270 287      let addressStr = toString(address)
271 288      let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
272 289      func handler (accum,assetId) =     {
273 -         let assetIdStr = toBase58String(assetId)
274 -         let aBalance = tryGetInteger((("global_" + toBase58String(assetId)) + "_balance"))
290 +         let assetIdStr = getAssetString(assetId)
291 +         let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
275 292          let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
276 293          let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
277 -         let currentTokenEarnings = max([tokenEarningsLastCheck, (assetBalance(this, assetId) - aBalance)])
294 +         let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
278 295          let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
279 296          let transfer = if ((rewardAmount == 0))
280 297              then nil
281 298              else [ScriptTransfer(address, rewardAmount, assetId)]
282 299          $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
283 300          }
284 301  
285 302      let accum = {
286 303          let $l = earnedAssets
287 304          let $s = size($l)
288 305          let $acc0 = $Tuple2(nil, 0)
289 -         func 1 ($a,$i) =         if (($i >= $s))
306 +         func $f0_1 ($a,$i) =         if (($i >= $s))
290 307              then $a
291 308              else handler($a, $l[$i])
292 309  
293 -         func 2 ($a,$i) =         if (($i >= $s))
310 +         func $f0_2 ($a,$i) =         if (($i >= $s))
294 311              then $a
295 312              else throw("List size exceeds 10")
296 313  
297 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
314 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
298 315          }
299 316      (accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
300 317      }
301 318  
302 319  
303 320  func indexStakeResult (addressStr,amount) = {
304 321      let li = claimResult(addressFromStringValue(addressStr))
305 322      (li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
306 323      }
307 324  
308 325  
309 326  @Callable(i)
310 327  func preInit () = {
311 328      func handler (accum,assetNum) =     if ((assetNum >= T))
312 329          then accum
313 -         else (accum ++ [IntegerEntry((("static_" + toBase58String(assetIds[0])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + toBase58String(assetIds[0])) + "_weight"), AssetsWeights[assetNum])])
330 +         else (accum ++ [IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_weight"), AssetsWeights[assetNum])])
314 331  
315 332      let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
316 333      let $s = size($l)
317 334      let $acc0 = nil
318 -     func 1 ($a,$i) =     if (($i >= $s))
335 +     func $f0_1 ($a,$i) =     if (($i >= $s))
319 336          then $a
320 337          else handler($a, $l[$i])
321 338  
322 -     func 2 ($a,$i) =     if (($i >= $s))
339 +     func $f0_2 ($a,$i) =     if (($i >= $s))
323 340          then $a
324 341          else throw("List size exceeds 10")
325 342  
326 -     2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
343 +     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
327 344      }
328 345  
329 346  
330 347  
331 348  @Callable(i)
332 349  func deInit () = if ((i.caller != this))
333 350      then throw("admin only")
334 351      else [IntegerEntry("global_wasInited", 0)]
335 352  
336 353  
337 354  
338 355  @Callable(i)
339 356  func init () = {
340 357      func prepareList () =     {
341 -         func handler (accum,n) =         (accum ++ [IntegerEntry((("global_" + toBase58String(value(n.assetId))) + "_balance"), n.amount)])
358 +         func handler (accum,n) =         (accum ++ [IntegerEntry((("global_" + getAssetString(n.assetId)) + "_balance"), n.amount)])
342 359  
343 360          let $l = i.payments
344 361          let $s = size($l)
345 362          let $acc0 = nil
346 -         func 1 ($a,$i) =         if (($i >= $s))
363 +         func $f0_1 ($a,$i) =         if (($i >= $s))
347 364              then $a
348 365              else handler($a, $l[$i])
349 366  
350 -         func 2 ($a,$i) =         if (($i >= $s))
367 +         func $f0_2 ($a,$i) =         if (($i >= $s))
351 368              then $a
352 369              else throw("List size exceeds 10")
353 370  
354 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
371 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
355 372          }
356 373  
357 374      func calculatePoolTokensAmount (payments) =     {
358 375          func handler (accum,pmt) =         {
359 -             let assetId = value(pmt.assetId)
376 +             let assetId = pmt.assetId
360 377              func handler2 (accum,n) =             if ((n == assetId))
361 378                  then value(indexOf(assetIds, n))
362 379                  else accum
363 380  
364 381              let Token = {
365 382                  let $l = assetIds
366 383                  let $s = size($l)
367 384                  let $acc0 = 1
368 -                 func 1 ($a,$i) =                 if (($i >= $s))
385 +                 func $f0_1 ($a,$i) =                 if (($i >= $s))
369 386                      then $a
370 387                      else handler2($a, $l[$i])
371 388  
372 -                 func 2 ($a,$i) =                 if (($i >= $s))
389 +                 func $f0_2 ($a,$i) =                 if (($i >= $s))
373 390                      then $a
374 391                      else throw("List size exceeds 10")
375 392  
376 -                 2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393 +                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
377 394                  }
378 395              (accum * pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 1, FLOOR))
379 396              }
380 397  
381 398          let $l = payments
382 399          let $s = size($l)
383 400          let $acc0 = 1
384 -         func 1 ($a,$i) =         if (($i >= $s))
401 +         func $f0_1 ($a,$i) =         if (($i >= $s))
385 402              then $a
386 403              else handler($a, $l[$i])
387 404  
388 -         func 2 ($a,$i) =         if (($i >= $s))
405 +         func $f0_2 ($a,$i) =         if (($i >= $s))
389 406              then $a
390 407              else throw("List size exceeds 10")
391 408  
392 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
409 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393 410          }
394 411  
395 412      if ((tryGetInteger("global_wasInited") > 0))
396 413          then throw("pool already inited")
397 414          else {
398 415              let initialPoolTokens = calculatePoolTokensAmount(i.payments)
399 416              let poolTokenIssue = Issue("Puzzle5", "Puzzle Swap Pool Token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
400 417              let poolTokenId = calculateAssetId(poolTokenIssue)
401 418              (prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), ScriptTransfer(i.caller, initialPoolTokens, poolTokenId)])
402 419              }
403 420      }
404 421  
405 422  
406 423  
407 424  @Callable(i)
408 425  func generateIndex (needChange) = if ((size(i.payments) != T))
409 426      then throw(("you need to attach all pool tokens. amount of pool tokens: " + toString(T)))
410 427      else if (!(checkTokensValidity(i.payments)))
411 428          then throw("wrong assets attached")
412 429          else {
413 430              let PIssued = getMinPIssued(i.payments)
414 431              let reissue = Reissue(getBinaryValue("global_poolToken_id"), PIssued, true)
415 432              let result = handlePoolTokensAdd(PIssued, i.payments, i.originCaller, needChange)
416 433              $Tuple2((result ++ [ScriptTransfer(i.caller, PIssued, tryGetBinary("global_poolToken_id")), reissue, IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") + PIssued))]), PIssued)
417 434              }
418 435  
419 436  
420 437  
421 438  @Callable(i)
422 439  func stakeIndex () = {
423 440      let addressStr = toString(i.originCaller)
424 441      let pmt = i.payments[0]
425 442      if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
426 443          then throw("wrong asset attached")
427 444          else indexStakeResult(addressStr, pmt.amount)
428 445      }
429 446  
430 447  
431 448  
432 449  @Callable(i)
433 450  func unstakeIndex (puzzleAmount) = {
434 451      let addressStr = toString(i.originCaller)
435 452      let puzzleAvailable = tryGetInteger((addressStr + "_indexStaked"))
436 453      if ((puzzleAmount > puzzleAvailable))
437 454          then throw("you don't have index tokens available")
438 455          else (claimResult(i.originCaller) ++ [IntegerEntry((addressStr + "_indexStaked"), (puzzleAvailable - puzzleAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - puzzleAmount)), ScriptTransfer(i.caller, puzzleAmount, getBinaryValue("global_poolToken_id"))])
439 456      }
440 457  
441 458  
442 459  
443 460  @Callable(i)
444 461  func claimIndexRewards () = claimResult(i.caller)
445 462  
446 463  
447 464  
448 465  @Callable(i)
449 466  func redeemIndex (sendToOrigin) = {
450 467      let pmt = i.payments[0]
451 468      if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
452 469          then throw("please attach pool share token")
453 470          else {
454 471              let PRedeemed = pmt.amount
455 472              let result = handlePoolTokensRedeem(PRedeemed, if (sendToOrigin)
456 473                  then i.originCaller
457 474                  else i.caller)
458 475              (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemed), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemed))])
459 476              }
460 477      }
461 478  
462 479  
463 480  
464 481  @Callable(i)
465 482  func swap (assetOut,minimum) = {
466 483      let pmt = value(i.payments[0])
467 484      let AmountIn = value(i.payments[0].amount)
468 -     let AssetIn = value(pmt.assetId)
469 -     let AssetOut = fromBase58String(assetOut)
470 -     let AssetInBalance = tryGetInteger((("global_" + toBase58String(AssetIn)) + "_balance"))
485 +     let AssetIn = pmt.assetId
486 +     let AssetOut = getAssetBytes(assetOut)
487 +     let puzzleFee = (i.caller == i.originCaller)
488 +     let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
471 489      let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
472 490      let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
473 491      let feeAmount = fraction(AmountOut, Fee, FeeScale)
474 492      let protocolFeeAmount = fraction(feeAmount, 40, 100)
475 493      let cleanAmountOut = (AmountOut - feeAmount)
476 494      if ((minimum > cleanAmountOut))
477 495          then throw(("amount to recieve is lower than given one: " + toString(cleanAmountOut)))
478 496          else if ((10000 > AmountIn))
479 497              then throw("sum to exchange is too small")
480 498              else if ((0 > (AssetOutBalance - AmountOut)))
481 499                  then throw("contract is out of reserves")
482 -                 else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), (AssetOutBalance - AmountOut)), IntegerEntry((("global_" + toBase58String(AssetIn)) + "_balance"), (AssetInBalance + AmountIn)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
500 +                 else {
501 +                     let newBalanceIn = (AssetInBalance + AmountIn)
502 +                     let newBalanceOut = (AssetOutBalance - AmountOut)
503 +                     if (puzzleFee)
504 +                         then {
505 +                             let cashbackAmount = (protocolFeeAmount / 2)
506 +                             let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
507 +                             let usdnBalance = if ((AssetIn == usdnAssetId))
508 +                                 then newBalanceIn
509 +                                 else if ((AssetOut == usdnAssetId))
510 +                                     then newBalanceOut
511 +                                     else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
512 +                             let usdnCashbackAmount = if ((AssetOut == usdnAssetId))
513 +                                 then cashbackAmount
514 +                                 else calculateOutAmount(cashbackAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
515 +                             let usdnBalanceChange = if ((AssetOut != usdnAssetId))
516 +                                 then [IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnCashbackAmount))]
517 +                                 else nil
518 +                             let puzzlePool = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
519 +                             let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
520 +                             let puzzleCashbackAmount =                             match reentrantInvoke(puzzlePool, "swap", [toBase58String(puzzleAssetId), 0], [AttachedPayment(usdnAssetId, usdnCashbackAmount)]) {
521 +                                 case x: Int => 
522 +                                     x
523 +                                 case _ => 
524 +                                     0
525 +                             }
526 +                             if ((puzzleCashbackAmount == puzzleCashbackAmount))
527 +                                 then $Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + cashbackAmount)), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), ScriptTransfer(i.caller, puzzleCashbackAmount, puzzleAssetId), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ usdnBalanceChange), cleanAmountOut)
528 +                                 else throw("Strict value is not equal to itself.")
529 +                             }
530 +                         else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
531 +                     }
483 532      }
484 533  
485 534

Old	New		Differences
27	27
28	28		let layer2Address = Address(base58'3PDVDYZiwJzK3pu8vcknuLiKCYBPx6XZntG')
29	29
	30	+	func getAssetString (assetId) = match assetId {
	31	+	case b: ByteVector =>
	32	+	toBase58String(b)
	33	+	case _ =>
	34	+	"WAVES"
	35	+	}
	36	+
	37	+
	38	+	func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
	39	+	then unit
	40	+	else fromBase58String(assetIdStr)
	41	+
	42	+
30	43		let earnedAssets = assetIds
31	44
32	45		func tryGetInteger (key) = match getInteger(this, key) {

46	59
47	60
48	61		func getCurrentTokenBalance (tokenType) = {
49		-	let tokenId = ~~toBase58String~~(assetIds[tokenType])
	62	+	let tokenId = getAssetString(assetIds[tokenType])
50	63		tryGetInteger((("global_" + tokenId) + "_balance"))
51	64		}
52	65
53	66
54	67		func calculatePIssued (amount,tokenId) = {
55	68		let Psupply = tryGetInteger("global_poolToken_amount")
56		-	let Balance = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	69	+	let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
57	70		fraction(amount, Psupply, Balance, DOWN)
58	71		}
59	72
60	73
61	74		func getMinPIssued (payments) = {
62	75		func handler (accum,current) = {
63		-	let PIssued = calculatePIssued(current.amount, ~~value(~~current.assetId))
	76	+	let PIssued = calculatePIssued(current.amount, current.assetId)
64	77		if (if ((accum == 0))
65	78		then true
66	79		else (accum > PIssued))

72	85		let $l = payments
73	86		let $s = size($l)
74	87		let $acc0 = 0
75		-	func 1 ($a,$i) = if (($i >= $s))
	88	+	func $f0_1 ($a,$i) = if (($i >= $s))
76	89		then $a
77	90		else handler($a, $l[$i])
78	91
79		-	func 2 ($a,$i) = if (($i >= $s))
	92	+	func $f0_2 ($a,$i) = if (($i >= $s))
80	93		then $a
81	94		else throw("List size exceeds 10")
82	95
83		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	96	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
84	97		}
85	98		minPIssed
86	99		}

90	103		let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
91	104		let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
92	105		let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
93		-	let usdnBalance = tryGetInteger((("global_" + ~~toBase58String~~(usdnId)) + "_balance"))
94		-	(fraction(amount, usdnBalance, usdnWeight) / (aBalance / assetWeight))
	106	+	let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
	107	+	fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
95	108		}
96	109
97	110
98	111		func checkTokensValidity (payments) = {
99		-	func handler1 (accum,payment) = (accum ++ [~~value(~~payment.assetId)])
	112	+	func handler1 (accum,payment) = (accum ++ [payment.assetId])
100	113
101	114		let ids = {
102	115		let $l = payments
103	116		let $s = size($l)
104	117		let $acc0 = nil
105		-	func 1 ($a,$i) = if (($i >= $s))
	118	+	func $f0_1 ($a,$i) = if (($i >= $s))
106	119		then $a
107	120		else handler1($a, $l[$i])
108	121
109		-	func 2 ($a,$i) = if (($i >= $s))
	122	+	func $f0_2 ($a,$i) = if (($i >= $s))
110	123		then $a
111	124		else throw("List size exceeds 10")
112	125
113		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	126	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
114	127		}
115	128		if ((ids == ids))
116	129		then {
117	130		func handler2 (accum,assetId) = if ((indexOf(ids, assetId) != unit))
118	131		then (accum + 1)
119		-	else throw(("asset not attached: " + ~~toBase58String~~(assetId)))
	132	+	else throw(("asset not attached: " + getAssetString(assetId)))
120	133
121	134		let checks = {
122	135		let $l = assetIds
123	136		let $s = size($l)
124	137		let $acc0 = 0
125		-	func 1 ($a,$i) = if (($i >= $s))
	138	+	func $f1_1 ($a,$i) = if (($i >= $s))
126	139		then $a
127	140		else handler2($a, $l[$i])
128	141
129		-	func 2 ($a,$i) = if (($i >= $s))
	142	+	func $f1_2 ($a,$i) = if (($i >= $s))
130	143		then $a
131	144		else throw("List size exceeds 10")
132	145
133		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	146	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
134	147		}
135	148		if ((checks == checks))
136	149		then true

149	162		let $l = payments
150	163		let $s = size($l)
151	164		let $acc0 = 0
152		-	func 1 ($a,$i) = if (($i >= $s))
	165	+	func $f0_1 ($a,$i) = if (($i >= $s))
153	166		then $a
154	167		else handler($a, $l[$i])
155	168
156		-	func 2 ($a,$i) = if (($i >= $s))
	169	+	func $f0_2 ($a,$i) = if (($i >= $s))
157	170		then $a
158	171		else throw("List size exceeds 10")
159	172
160		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	173	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
161	174		}
162	175
163	176		func handleTokenChange (accum,tokenId) = {
164		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	177	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165	178		let PSupply = tryGetInteger("global_poolToken_amount")
166		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	179	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
167	180		let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, DOWN) - tokenDecimals), Bk, tokenDecimals, DOWN)
168	181		let paymentAmount = getTokenPaymentAmount(tokenId)
169		-	if ((1000 >= paymentAmount))
170		-	then throw("the value is too small")
171		-	else {
172		-	let toReturn = ((if ((paymentAmount != 0))
173		-	then paymentAmount
174		-	else 0) - Dk)
175		-	let t = if (needChange)
176		-	then [ScriptTransfer(userAddress, toReturn, tokenId)]
177		-	else nil
178		-	((accum ++ t) ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk + Dk))])
179		-	}
	182	+	let toReturn = ((if ((paymentAmount != 0))
	183	+	then paymentAmount
	184	+	else 0) - Dk)
	185	+	let t = if (needChange)
	186	+	then [ScriptTransfer(userAddress, toReturn, tokenId)]
	187	+	else nil
	188	+	((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
180	189		}
181	190
182	191		let $l = assetIds
183	192		let $s = size($l)
184	193		let $acc0 = nil
185		-	func 1 ($a,$i) = if (($i >= $s))
	194	+	func $f0_1 ($a,$i) = if (($i >= $s))
186	195		then $a
187	196		else handleTokenChange($a, $l[$i])
188	197
189		-	func 2 ($a,$i) = if (($i >= $s))
	198	+	func $f0_2 ($a,$i) = if (($i >= $s))
190	199		then $a
191	200		else throw("List size exceeds 10")
192	201
193		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	202	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194	203		}
195	204
196	205
197	206		func handlePoolTokensRedeem (PRedeemed,userAddress) = {
198	207		func handleTokenRedeem (accum,tokenId) = {
199		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	208	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
200	209		let PSupply = tryGetInteger("global_poolToken_amount")
201		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	210	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
202	211		let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
203		-	(accum ++ [IntegerEntry((("global_" + ~~toBase58String~~(tokenId)) + "_balance"), (Bk - amount))])
	212	+	(accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount))])
204	213		}
205	214
206	215		func handleTokenRedeem2 (accum,tokenId) = {
207		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	216	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
208	217		let PSupply = tryGetInteger("global_poolToken_amount")
209		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	218	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
210	219		let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
211	220		(accum ++ [ScriptTransfer(userAddress, amount, tokenId)])
212	221		}

215	224		let $l = assetIds
216	225		let $s = size($l)
217	226		let $acc0 = nil
218		-	func 1 ($a,$i) = if (($i >= $s))
	227	+	func $f0_1 ($a,$i) = if (($i >= $s))
219	228		then $a
220	229		else handleTokenRedeem($a, $l[$i])
221	230
222		-	func 2 ($a,$i) = if (($i >= $s))
	231	+	func $f0_2 ($a,$i) = if (($i >= $s))
223	232		then $a
224	233		else throw("List size exceeds 10")
225	234
226		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	235	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
227	236		} ++ {
228	237		let $l = assetIds
229	238		let $s = size($l)
230	239		let $acc0 = nil
231		-	func 1 ($a,$i) = if (($i >= $s))
	240	+	func $f1_1 ($a,$i) = if (($i >= $s))
232	241		then $a
233	242		else handleTokenRedeem2($a, $l[$i])
234	243
235		-	func 2 ($a,$i) = if (($i >= $s))
	244	+	func $f1_2 ($a,$i) = if (($i >= $s))
236	245		then $a
237	246		else throw("List size exceeds 10")
238	247
239		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	248	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
240	249		})
241	250		}
242	251

246	255		let IndexOut = value(indexOf(assetIds, assetOut))
247	256		if ((IndexIn == IndexOut))
248	257		then throw("inalid tokens pair")
249		-	else fraction(BalanceOut, (Scales[IndexOut] - pow(((BalanceIn * Scales[IndexIn]~~) /~~ (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], ~~FLOOR~~)), Scales[IndexOut], DOWN)
	258	+	else fraction(BalanceOut, (Scales[IndexOut] - pow(fraction(BalanceIn, Scales[IndexIn], (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], CEILING)), Scales[IndexOut], DOWN)
250	259		}
	260	+
	261	+
	262	+	func getTokenBalance (assetId) = match assetId {
	263	+	case t: ByteVector =>
	264	+	assetBalance(this, t)
	265	+	case _ =>
	266	+	wavesBalance(this).available
	267	+	}
251	268
252	269
253	270		func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
254	271		let totalStaked = tryGetInteger("global_indexStaked")
255	272		let tokenBalanceLastCheck = tokenEarningsLastCheck
256		-	let currentBalanceDelta = (~~assetBalance~~(~~this,~~ assetId) - aBalance)
	273	+	let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
257	274		let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
258	275		then currentBalanceDelta
259	276		else tokenBalanceLastCheck

270	287		let addressStr = toString(address)
271	288		let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
272	289		func handler (accum,assetId) = {
273		-	let assetIdStr = ~~toBase58String~~(assetId)
274		-	let aBalance = tryGetInteger((("global_" + ~~toBase58String~~(assetId)) + "_balance"))
	290	+	let assetIdStr = getAssetString(assetId)
	291	+	let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
275	292		let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
276	293		let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
277		-	let currentTokenEarnings = max([tokenEarningsLastCheck, (~~assetBalance~~(~~this,~~ assetId) - aBalance)])
	294	+	let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
278	295		let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
279	296		let transfer = if ((rewardAmount == 0))
280	297		then nil

286	303		let $l = earnedAssets
287	304		let $s = size($l)
288	305		let $acc0 = $Tuple2(nil, 0)
289		-	func 1 ($a,$i) = if (($i >= $s))
	306	+	func $f0_1 ($a,$i) = if (($i >= $s))
290	307		then $a
291	308		else handler($a, $l[$i])
292	309
293		-	func 2 ($a,$i) = if (($i >= $s))
	310	+	func $f0_2 ($a,$i) = if (($i >= $s))
294	311		then $a
295	312		else throw("List size exceeds 10")
296	313
297		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	314	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
298	315		}
299	316		(accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
300	317		}

310	327		func preInit () = {
311	328		func handler (accum,assetNum) = if ((assetNum >= T))
312	329		then accum
313		-	else (accum ++ [IntegerEntry((("static_" + ~~toBase58String~~(assetIds[0])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + ~~toBase58String~~(assetIds[0])) + "_weight"), AssetsWeights[assetNum])])
	330	+	else (accum ++ [IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_weight"), AssetsWeights[assetNum])])
314	331
315	332		let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
316	333		let $s = size($l)
317	334		let $acc0 = nil
318		-	func 1 ($a,$i) = if (($i >= $s))
	335	+	func $f0_1 ($a,$i) = if (($i >= $s))
319	336		then $a
320	337		else handler($a, $l[$i])
321	338
322		-	func 2 ($a,$i) = if (($i >= $s))
	339	+	func $f0_2 ($a,$i) = if (($i >= $s))
323	340		then $a
324	341		else throw("List size exceeds 10")
325	342
326		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	343	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
327	344		}
328	345
329	346

338	355		@Callable(i)
339	356		func init () = {
340	357		func prepareList () = {
341		-	func handler (accum,n) = (accum ++ [IntegerEntry((("global_" + ~~toBase58String(value~~(n.assetId))) + "_balance"), n.amount)])
	358	+	func handler (accum,n) = (accum ++ [IntegerEntry((("global_" + getAssetString(n.assetId)) + "_balance"), n.amount)])
342	359
343	360		let $l = i.payments
344	361		let $s = size($l)
345	362		let $acc0 = nil
346		-	func 1 ($a,$i) = if (($i >= $s))
	363	+	func $f0_1 ($a,$i) = if (($i >= $s))
347	364		then $a
348	365		else handler($a, $l[$i])
349	366
350		-	func 2 ($a,$i) = if (($i >= $s))
	367	+	func $f0_2 ($a,$i) = if (($i >= $s))
351	368		then $a
352	369		else throw("List size exceeds 10")
353	370
354		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	371	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
355	372		}
356	373
357	374		func calculatePoolTokensAmount (payments) = {
358	375		func handler (accum,pmt) = {
359		-	let assetId = ~~value(~~pmt.assetId)
	376	+	let assetId = pmt.assetId
360	377		func handler2 (accum,n) = if ((n == assetId))
361	378		then value(indexOf(assetIds, n))
362	379		else accum

365	382		let $l = assetIds
366	383		let $s = size($l)
367	384		let $acc0 = 1
368		-	func 1 ($a,$i) = if (($i >= $s))
	385	+	func $f0_1 ($a,$i) = if (($i >= $s))
369	386		then $a
370	387		else handler2($a, $l[$i])
371	388
372		-	func 2 ($a,$i) = if (($i >= $s))
	389	+	func $f0_2 ($a,$i) = if (($i >= $s))
373	390		then $a
374	391		else throw("List size exceeds 10")
375	392
376		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	393	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
377	394		}
378	395		(accum * pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 1, FLOOR))
379	396		}

381	398		let $l = payments
382	399		let $s = size($l)
383	400		let $acc0 = 1
384		-	func 1 ($a,$i) = if (($i >= $s))
	401	+	func $f0_1 ($a,$i) = if (($i >= $s))
385	402		then $a
386	403		else handler($a, $l[$i])
387	404
388		-	func 2 ($a,$i) = if (($i >= $s))
	405	+	func $f0_2 ($a,$i) = if (($i >= $s))
389	406		then $a
390	407		else throw("List size exceeds 10")
391	408
392		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	409	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393	410		}
394	411
395	412		if ((tryGetInteger("global_wasInited") > 0))

465	482		func swap (assetOut,minimum) = {
466	483		let pmt = value(i.payments[0])
467	484		let AmountIn = value(i.payments[0].amount)
468		-	let AssetIn = value(pmt.assetId)
469		-	let AssetOut = fromBase58String(assetOut)
470		-	let AssetInBalance = tryGetInteger((("global_" + toBase58String(AssetIn)) + "_balance"))
	485	+	let AssetIn = pmt.assetId
	486	+	let AssetOut = getAssetBytes(assetOut)
	487	+	let puzzleFee = (i.caller == i.originCaller)
	488	+	let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
471	489		let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
472	490		let AmountOut = calculateOutAmount(AmountIn, AssetIn, AssetOut, AssetInBalance, AssetOutBalance)
473	491		let feeAmount = fraction(AmountOut, Fee, FeeScale)

479	497		then throw("sum to exchange is too small")
480	498		else if ((0 > (AssetOutBalance - AmountOut)))
481	499		then throw("contract is out of reserves")
482		-	else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), (AssetOutBalance - AmountOut)), IntegerEntry((("global_" + toBase58String(AssetIn)) + "_balance"), (AssetInBalance + AmountIn)), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
	500	+	else {
	501	+	let newBalanceIn = (AssetInBalance + AmountIn)
	502	+	let newBalanceOut = (AssetOutBalance - AmountOut)
	503	+	if (puzzleFee)
	504	+	then {
	505	+	let cashbackAmount = (protocolFeeAmount / 2)
	506	+	let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
	507	+	let usdnBalance = if ((AssetIn == usdnAssetId))
	508	+	then newBalanceIn
	509	+	else if ((AssetOut == usdnAssetId))
	510	+	then newBalanceOut
	511	+	else tryGetInteger((("global_" + getAssetString(usdnAssetId)) + "_balance"))
	512	+	let usdnCashbackAmount = if ((AssetOut == usdnAssetId))
	513	+	then cashbackAmount
	514	+	else calculateOutAmount(cashbackAmount, AssetOut, usdnAssetId, newBalanceOut, usdnBalance)
	515	+	let usdnBalanceChange = if ((AssetOut != usdnAssetId))
	516	+	then [IntegerEntry((("global_" + toBase58String(usdnAssetId)) + "_balance"), (usdnBalance - usdnCashbackAmount))]
	517	+	else nil
	518	+	let puzzlePool = Address(base58'3PFDgzu1UtswAkCMxqqQjbTeHaX4cMab8Kh')
	519	+	let puzzleAssetId = base58'HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS'
	520	+	let puzzleCashbackAmount = match reentrantInvoke(puzzlePool, "swap", [toBase58String(puzzleAssetId), 0], [AttachedPayment(usdnAssetId, usdnCashbackAmount)]) {
	521	+	case x: Int =>
	522	+	x
	523	+	case _ =>
	524	+	0
	525	+	}
	526	+	if ((puzzleCashbackAmount == puzzleCashbackAmount))
	527	+	then $Tuple2(([IntegerEntry((("global_" + assetOut) + "_balance"), (newBalanceOut + cashbackAmount)), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), ScriptTransfer(i.caller, puzzleCashbackAmount, puzzleAssetId), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))] ++ usdnBalanceChange), cleanAmountOut)
	528	+	else throw("Strict value is not equal to itself.")
	529	+	}
	530	+	else $Tuple2([IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut), IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn), ScriptTransfer(i.caller, cleanAmountOut, AssetOut), IntegerEntry("global_volume", (tryGetInteger("global_volume") + calculateUsdnValue(AssetIn, AmountIn, AssetInBalance)))], cleanAmountOut)
	531	+	}
483	532		}
484	533
485	534

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let T = 10
5	5
6	6		let assetIds = [base58'EfdcPXw7o7rrrPWmMBr2sa66Dk95n56622ngujbaGhye', base58'B543bkZcZNo5GrUnd5fxB6EwkiJhAVyKCkPn5nWzZC2s', base58'5bcAh1r6ydrpk44FEmrnmJQjumgKo3NKEEsyfgmZYwxC', base58'54UszKAj3MtYmkdRCqSXAcaQLaVALBy7CCrVkfmfzhxR', base58'5nk9JW8yRonyNBEwhChoksLxpBECVxbVLqaNuQs9EJn1', base58'Dfx6LJPndo1h5Umk9SofDhMDs6Gi8cHyT3873pSgoASU', base58'4kwKSf4Bx2Wq8YxKnVZBhcEHyXzEtJ2pw7ixfJgirwf2', base58'Ej7kEzxvUsoiMtJKiuFpMD9tC6qfCADpZynyW2vqcWW', base58'C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS', base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p']
7	7
8	8		let AssetsWeights = [10, 10, 10, 10, 10, 10, 10, 10, 10, 10]
9	9
10	10		let AssetsWeightsDecimals = 2
11	11
12	12		let PoolTokenDecimals = 0
13	13
14	14		let Decimals = [8, 8, 8, 8, 8, 8, 8, 8, 8, 6]
15	15
16	16		let Scales = [100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000]
17	17
18	18		let Fee = 200
19	19
20	20		let Scale = 10000
21	21
22	22		let Scale8 = 100000000
23	23
24	24		let FeeScale = 10000
25	25
26	26		let feeAggregator = Address(base58'3PBmAwjkwsM83KQhjSMNZvgdFeYeLz9tdBD')
27	27
28	28		let layer2Address = Address(base58'3PDVDYZiwJzK3pu8vcknuLiKCYBPx6XZntG')
29	29
	30	+	func getAssetString (assetId) = match assetId {
	31	+	case b: ByteVector =>
	32	+	toBase58String(b)
	33	+	case _ =>
	34	+	"WAVES"
	35	+	}
	36	+
	37	+
	38	+	func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
	39	+	then unit
	40	+	else fromBase58String(assetIdStr)
	41	+
	42	+
30	43		let earnedAssets = assetIds
31	44
32	45		func tryGetInteger (key) = match getInteger(this, key) {
33	46		case b: Int =>
34	47		b
35	48		case _ =>
36	49		0
37	50		}
38	51
39	52
40	53		func tryGetBinary (key) = match getBinary(this, key) {
41	54		case b: ByteVector =>
42	55		b
43	56		case _ =>
44	57		base58''
45	58		}
46	59
47	60
48	61		func getCurrentTokenBalance (tokenType) = {
49		-	let tokenId = ~~toBase58String~~(assetIds[tokenType])
	62	+	let tokenId = getAssetString(assetIds[tokenType])
50	63		tryGetInteger((("global_" + tokenId) + "_balance"))
51	64		}
52	65
53	66
54	67		func calculatePIssued (amount,tokenId) = {
55	68		let Psupply = tryGetInteger("global_poolToken_amount")
56		-	let Balance = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	69	+	let Balance = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
57	70		fraction(amount, Psupply, Balance, DOWN)
58	71		}
59	72
60	73
61	74		func getMinPIssued (payments) = {
62	75		func handler (accum,current) = {
63		-	let PIssued = calculatePIssued(current.amount, ~~value(~~current.assetId))
	76	+	let PIssued = calculatePIssued(current.amount, current.assetId)
64	77		if (if ((accum == 0))
65	78		then true
66	79		else (accum > PIssued))
67	80		then PIssued
68	81		else accum
69	82		}
70	83
71	84		let minPIssed = {
72	85		let $l = payments
73	86		let $s = size($l)
74	87		let $acc0 = 0
75		-	func 1 ($a,$i) = if (($i >= $s))
	88	+	func $f0_1 ($a,$i) = if (($i >= $s))
76	89		then $a
77	90		else handler($a, $l[$i])
78	91
79		-	func 2 ($a,$i) = if (($i >= $s))
	92	+	func $f0_2 ($a,$i) = if (($i >= $s))
80	93		then $a
81	94		else throw("List size exceeds 10")
82	95
83		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	96	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
84	97		}
85	98		minPIssed
86	99		}
87	100
88	101
89	102		func calculateUsdnValue (assetId,amount,aBalance) = {
90	103		let usdnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
91	104		let usdnWeight = AssetsWeights[value(indexOf(assetIds, usdnId))]
92	105		let assetWeight = AssetsWeights[value(indexOf(assetIds, assetId))]
93		-	let usdnBalance = tryGetInteger((("global_" + ~~toBase58String~~(usdnId)) + "_balance"))
94		-	(fraction(amount, usdnBalance, usdnWeight) / (aBalance / assetWeight))
	106	+	let usdnBalance = tryGetInteger((("global_" + getAssetString(usdnId)) + "_balance"))
	107	+	fraction(amount, (usdnBalance / usdnWeight), (aBalance / assetWeight))
95	108		}
96	109
97	110
98	111		func checkTokensValidity (payments) = {
99		-	func handler1 (accum,payment) = (accum ++ [~~value(~~payment.assetId)])
	112	+	func handler1 (accum,payment) = (accum ++ [payment.assetId])
100	113
101	114		let ids = {
102	115		let $l = payments
103	116		let $s = size($l)
104	117		let $acc0 = nil
105		-	func 1 ($a,$i) = if (($i >= $s))
	118	+	func $f0_1 ($a,$i) = if (($i >= $s))
106	119		then $a
107	120		else handler1($a, $l[$i])
108	121
109		-	func 2 ($a,$i) = if (($i >= $s))
	122	+	func $f0_2 ($a,$i) = if (($i >= $s))
110	123		then $a
111	124		else throw("List size exceeds 10")
112	125
113		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	126	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
114	127		}
115	128		if ((ids == ids))
116	129		then {
117	130		func handler2 (accum,assetId) = if ((indexOf(ids, assetId) != unit))
118	131		then (accum + 1)
119		-	else throw(("asset not attached: " + ~~toBase58String~~(assetId)))
	132	+	else throw(("asset not attached: " + getAssetString(assetId)))
120	133
121	134		let checks = {
122	135		let $l = assetIds
123	136		let $s = size($l)
124	137		let $acc0 = 0
125		-	func 1 ($a,$i) = if (($i >= $s))
	138	+	func $f1_1 ($a,$i) = if (($i >= $s))
126	139		then $a
127	140		else handler2($a, $l[$i])
128	141
129		-	func 2 ($a,$i) = if (($i >= $s))
	142	+	func $f1_2 ($a,$i) = if (($i >= $s))
130	143		then $a
131	144		else throw("List size exceeds 10")
132	145
133		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	146	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
134	147		}
135	148		if ((checks == checks))
136	149		then true
137	150		else throw("Strict value is not equal to itself.")
138	151		}
139	152		else throw("Strict value is not equal to itself.")
140	153		}
141	154
142	155
143	156		func handlePoolTokensAdd (PIssued,payments,userAddress,needChange) = {
144	157		func getTokenPaymentAmount (tokenId) = {
145	158		func handler (accum,payment) = if ((payment.assetId == tokenId))
146	159		then payment.amount
147	160		else accum
148	161
149	162		let $l = payments
150	163		let $s = size($l)
151	164		let $acc0 = 0
152		-	func 1 ($a,$i) = if (($i >= $s))
	165	+	func $f0_1 ($a,$i) = if (($i >= $s))
153	166		then $a
154	167		else handler($a, $l[$i])
155	168
156		-	func 2 ($a,$i) = if (($i >= $s))
	169	+	func $f0_2 ($a,$i) = if (($i >= $s))
157	170		then $a
158	171		else throw("List size exceeds 10")
159	172
160		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	173	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
161	174		}
162	175
163	176		func handleTokenChange (accum,tokenId) = {
164		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	177	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
165	178		let PSupply = tryGetInteger("global_poolToken_amount")
166		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	179	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
167	180		let Dk = fraction((fraction((PSupply + PIssued), tokenDecimals, PSupply, DOWN) - tokenDecimals), Bk, tokenDecimals, DOWN)
168	181		let paymentAmount = getTokenPaymentAmount(tokenId)
169		-	if ((1000 >= paymentAmount))
170		-	then throw("the value is too small")
171		-	else {
172		-	let toReturn = ((if ((paymentAmount != 0))
173		-	then paymentAmount
174		-	else 0) - Dk)
175		-	let t = if (needChange)
176		-	then [ScriptTransfer(userAddress, toReturn, tokenId)]
177		-	else nil
178		-	((accum ++ t) ++ [IntegerEntry((("global_" + toBase58String(tokenId)) + "_balance"), (Bk + Dk))])
179		-	}
	182	+	let toReturn = ((if ((paymentAmount != 0))
	183	+	then paymentAmount
	184	+	else 0) - Dk)
	185	+	let t = if (needChange)
	186	+	then [ScriptTransfer(userAddress, toReturn, tokenId)]
	187	+	else nil
	188	+	((accum ++ t) ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk + Dk))])
180	189		}
181	190
182	191		let $l = assetIds
183	192		let $s = size($l)
184	193		let $acc0 = nil
185		-	func 1 ($a,$i) = if (($i >= $s))
	194	+	func $f0_1 ($a,$i) = if (($i >= $s))
186	195		then $a
187	196		else handleTokenChange($a, $l[$i])
188	197
189		-	func 2 ($a,$i) = if (($i >= $s))
	198	+	func $f0_2 ($a,$i) = if (($i >= $s))
190	199		then $a
191	200		else throw("List size exceeds 10")
192	201
193		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	202	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
194	203		}
195	204
196	205
197	206		func handlePoolTokensRedeem (PRedeemed,userAddress) = {
198	207		func handleTokenRedeem (accum,tokenId) = {
199		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	208	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
200	209		let PSupply = tryGetInteger("global_poolToken_amount")
201		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	210	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
202	211		let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
203		-	(accum ++ [IntegerEntry((("global_" + ~~toBase58String~~(tokenId)) + "_balance"), (Bk - amount))])
	212	+	(accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount))])
204	213		}
205	214
206	215		func handleTokenRedeem2 (accum,tokenId) = {
207		-	let Bk = tryGetInteger((("global_" + ~~toBase58String~~(tokenId)) + "_balance"))
	216	+	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
208	217		let PSupply = tryGetInteger("global_poolToken_amount")
209		-	let tokenDecimals = tryGetInteger((("static_" + ~~toBase58String~~(tokenId)) + "_scale"))
	218	+	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
210	219		let amount = fraction((tokenDecimals - fraction((PSupply - PRedeemed), tokenDecimals, PSupply, DOWN)), Bk, tokenDecimals, DOWN)
211	220		(accum ++ [ScriptTransfer(userAddress, amount, tokenId)])
212	221		}
213	222
214	223		({
215	224		let $l = assetIds
216	225		let $s = size($l)
217	226		let $acc0 = nil
218		-	func 1 ($a,$i) = if (($i >= $s))
	227	+	func $f0_1 ($a,$i) = if (($i >= $s))
219	228		then $a
220	229		else handleTokenRedeem($a, $l[$i])
221	230
222		-	func 2 ($a,$i) = if (($i >= $s))
	231	+	func $f0_2 ($a,$i) = if (($i >= $s))
223	232		then $a
224	233		else throw("List size exceeds 10")
225	234
226		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	235	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
227	236		} ++ {
228	237		let $l = assetIds
229	238		let $s = size($l)
230	239		let $acc0 = nil
231		-	func 1 ($a,$i) = if (($i >= $s))
	240	+	func $f1_1 ($a,$i) = if (($i >= $s))
232	241		then $a
233	242		else handleTokenRedeem2($a, $l[$i])
234	243
235		-	func 2 ($a,$i) = if (($i >= $s))
	244	+	func $f1_2 ($a,$i) = if (($i >= $s))
236	245		then $a
237	246		else throw("List size exceeds 10")
238	247
239		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	248	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
240	249		})
241	250		}
242	251
243	252
244	253		func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
245	254		let IndexIn = value(indexOf(assetIds, assetIn))
246	255		let IndexOut = value(indexOf(assetIds, assetOut))
247	256		if ((IndexIn == IndexOut))
248	257		then throw("inalid tokens pair")
249		-	else fraction(BalanceOut, (Scales[IndexOut] - pow(((BalanceIn * Scales[IndexIn]~~) /~~ (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], ~~FLOOR~~)), Scales[IndexOut], DOWN)
	258	+	else fraction(BalanceOut, (Scales[IndexOut] - pow(fraction(BalanceIn, Scales[IndexIn], (BalanceIn + AmountIn)), Decimals[IndexIn], fraction(AssetsWeights[IndexIn], 10000, AssetsWeights[IndexOut]), 4, Decimals[IndexOut], CEILING)), Scales[IndexOut], DOWN)
250	259		}
	260	+
	261	+
	262	+	func getTokenBalance (assetId) = match assetId {
	263	+	case t: ByteVector =>
	264	+	assetBalance(this, t)
	265	+	case _ =>
	266	+	wavesBalance(this).available
	267	+	}
251	268
252	269
253	270		func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
254	271		let totalStaked = tryGetInteger("global_indexStaked")
255	272		let tokenBalanceLastCheck = tokenEarningsLastCheck
256		-	let currentBalanceDelta = (~~assetBalance~~(~~this,~~ assetId) - aBalance)
	273	+	let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
257	274		let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
258	275		then currentBalanceDelta
259	276		else tokenBalanceLastCheck
260	277		let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
261	278		let newInterest = if ((totalStaked == 0))
262	279		then 0
263	280		else fraction(newEarnings, Scale8, totalStaked)
264	281		let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
265	282		(lastCheckInterest + newInterest)
266	283		}
267	284
268	285
269	286		func claimResult (address) = {
270	287		let addressStr = toString(address)
271	288		let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
272	289		func handler (accum,assetId) = {
273		-	let assetIdStr = ~~toBase58String~~(assetId)
274		-	let aBalance = tryGetInteger((("global_" + ~~toBase58String~~(assetId)) + "_balance"))
	290	+	let assetIdStr = getAssetString(assetId)
	291	+	let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
275	292		let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
276	293		let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
277		-	let currentTokenEarnings = max([tokenEarningsLastCheck, (~~assetBalance~~(~~this,~~ assetId) - aBalance)])
	294	+	let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
278	295		let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
279	296		let transfer = if ((rewardAmount == 0))
280	297		then nil
281	298		else [ScriptTransfer(address, rewardAmount, assetId)]
282	299		$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdnValue(assetId, rewardAmount, aBalance)))
283	300		}
284	301
285	302		let accum = {
286	303		let $l = earnedAssets
287	304		let $s = size($l)
288	305		let $acc0 = $Tuple2(nil, 0)
289		-	func 1 ($a,$i) = if (($i >= $s))
	306	+	func $f0_1 ($a,$i) = if (($i >= $s))
290	307		then $a
291	308		else handler($a, $l[$i])
292	309
293		-	func 2 ($a,$i) = if (($i >= $s))
	310	+	func $f0_2 ($a,$i) = if (($i >= $s))
294	311		then $a
295	312		else throw("List size exceeds 10")
296	313
297		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	314	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
298	315		}
299	316		(accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardValue"), (tryGetInteger((addressStr + "_claimedRewardValue")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)])
300	317		}
301	318
302	319
303	320		func indexStakeResult (addressStr,amount) = {
304	321		let li = claimResult(addressFromStringValue(addressStr))
305	322		(li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
306	323		}
307	324
308	325
309	326		@Callable(i)
310	327		func preInit () = {
311	328		func handler (accum,assetNum) = if ((assetNum >= T))
312	329		then accum
313		-	else (accum ++ [IntegerEntry((("static_" + ~~toBase58String~~(assetIds[0])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + ~~toBase58String~~(assetIds[0])) + "_weight"), AssetsWeights[assetNum])])
	330	+	else (accum ++ [IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_scale"), Scales[assetNum]), IntegerEntry((("static_" + getAssetString(assetIds[assetNum])) + "_weight"), AssetsWeights[assetNum])])
314	331
315	332		let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
316	333		let $s = size($l)
317	334		let $acc0 = nil
318		-	func 1 ($a,$i) = if (($i >= $s))
	335	+	func $f0_1 ($a,$i) = if (($i >= $s))
319	336		then $a
320	337		else handler($a, $l[$i])
321	338
322		-	func 2 ($a,$i) = if (($i >= $s))
	339	+	func $f0_2 ($a,$i) = if (($i >= $s))
323	340		then $a
324	341		else throw("List size exceeds 10")
325	342
326		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	343	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
327	344		}
328	345
329	346
330	347
331	348		@Callable(i)
332	349		func deInit () = if ((i.caller != this))
333	350		then throw("admin only")
334	351		else [IntegerEntry("global_wasInited", 0)]
335	352
336	353
337	354
338	355		@Callable(i)
339	356		func init () = {
340	357		func prepareList () = {
341		-	func handler (accum,n) = (accum ++ [IntegerEntry((("global_" + ~~toBase58String(value~~(n.assetId))) + "_balance"), n.amount)])
	358	+	func handler (accum,n) = (accum ++ [IntegerEntry((("global_" + getAssetString(n.assetId)) + "_balance"), n.amount)])
342	359
343	360		let $l = i.payments
344	361		let $s = size($l)
345	362		let $acc0 = nil
346		-	func 1 ($a,$i) = if (($i >= $s))
	363	+	func $f0_1 ($a,$i) = if (($i >= $s))
347	364		then $a
348	365		else handler($a, $l[$i])
349	366
350		-	func 2 ($a,$i) = if (($i >= $s))
	367	+	func $f0_2 ($a,$i) = if (($i >= $s))
351	368		then $a
352	369		else throw("List size exceeds 10")
353	370
354		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	371	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
355	372		}
356	373
357	374		func calculatePoolTokensAmount (payments) = {
358	375		func handler (accum,pmt) = {
359		-	let assetId = ~~value(~~pmt.assetId)
	376	+	let assetId = pmt.assetId
360	377		func handler2 (accum,n) = if ((n == assetId))
361	378		then value(indexOf(assetIds, n))
362	379		else accum
363	380
364	381		let Token = {
365	382		let $l = assetIds
366	383		let $s = size($l)
367	384		let $acc0 = 1
368		-	func 1 ($a,$i) = if (($i >= $s))
	385	+	func $f0_1 ($a,$i) = if (($i >= $s))
369	386		then $a
370	387		else handler2($a, $l[$i])
371	388
372		-	func 2 ($a,$i) = if (($i >= $s))
	389	+	func $f0_2 ($a,$i) = if (($i >= $s))
373	390		then $a
374	391		else throw("List size exceeds 10")
375	392
376		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	393	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
377	394		}
378	395		(accum * pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 1, FLOOR))
379	396		}
380	397
381	398		let $l = payments
382	399		let $s = size($l)
383	400		let $acc0 = 1
384		-	func 1 ($a,$i) = if (($i >= $s))
	401	+	func $f0_1 ($a,$i) = if (($i >= $s))
385	402		then $a
386	403		else handler($a, $l[$i])
387	404
388		-	func 2 ($a,$i) = if (($i >= $s))
	405	+	func $f0_2 ($a,$i) = if (($i >= $s))
389	406		then $a
390	407		else throw("List size exceeds 10")
391	408
392		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	409	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
393	410		}
394	411
395	412		if ((tryGetInteger("global_wasInited") > 0))
396	413		then throw("pool already inited")
397	414		else {
398	415		let initialPoolTokens = calculatePoolTokensAmount(i.payments)
399	416		let poolTokenIssue = Issue("Puzzle5", "Puzzle Swap Pool Token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
400	417		let poolTokenId = calculateAssetId(poolTokenIssue)
401	418		(prepareList() ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), ScriptTransfer(i.caller, initialPoolTokens, poolTokenId)])
402	419		}
403	420		}
404	421
405	422
406	423
407	424		@Callable(i)
408	425		func generateIndex (needChange) = if ((size(i.payments) != T))
409	426		then throw(("you need to attach all pool tokens. amount of pool tokens: " + toString(T)))
410	427		else if (!(checkTokensValidity(i.payments)))
411	428		then throw("wrong assets attached")
412	429		else {
413	430		let PIssued = getMinPIssued(i.payments)
414	431		let reissue = Reissue(getBinaryValue("global_poolToken_id"), PIssued, true)

github/deemru/w8io/3ef1775 
122.95 ms ◑