tx · 8Rrz8zUxVgVJR9duPcKe2yQs2M8wVUz6zPnFCByFUknK

3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT:  -0.03700000 Waves

2023.01.09 17:41 [2397542] smart account 3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8Rrz8zUxVgVJR9duPcKe2yQs2M8wVUz6zPnFCByFUknK",
    "fee": 3700000,
    "feeAssetId": null,
    "timestamp": 1673275296569,
    "version": 1,
    "sender": "3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT",
    "senderPublicKey": "D1BL65meykxFZTCuq7jq9HSGLLnWvQamQPUNrguW5w39",
    "proofs": [
        "4Fmx1CpZuELhbQShj2dnMvtxW5wTaMqVFFXrWQrg1hdd4nm2HqaWWHvvpbEGeZKku9A8ybdZvpe9o1w7yygJoRzP"
    ],
    "script": "base64:BgKoKQgCEgMKAQgSAwoBCBIAEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIAEgQKAggBEgQKAggBEgQKAgEBEgMKAQESBQoDAQEBEgUKAwEIARIECgIBCBIECgIBCBIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIIgZzY2FsZTgiDHNjYWxlOEJpZ0ludCIHc2NhbGUxOCIKemVyb0JpZ0ludCIEYmlnMCIEYmlnMSIEYmlnMiIEYmlnMyIEYmlnNCIKc2xpcHBhZ2U0RCILd2F2ZXNTdHJpbmciBUFtdWx0IgVEY29udiIDU0VQIgVFTVBUWSIKUG9vbEFjdGl2ZSIKUG9vbFB1dERpcyIOUG9vbE1hdGNoZXJEaXMiDFBvb2xTaHV0ZG93biIOaWR4UG9vbEFkZHJlc3MiCWlkeFBvb2xTdCIJaWR4TFBBc0lkIglpZHhBbUFzSWQiCWlkeFByQXNJZCILaWR4QW10QXNEY20iDWlkeFByaWNlQXNEY20iC2lkeElBbXRBc0lkIg1pZHhJUHJpY2VBc0lkIg9pZHhGYWN0U3Rha0NudHIiEmlkeEZhY3RvcnlSZXN0Q250ciIQaWR4RmFjdFNsaXBwQ250ciIRaWR4RmFjdEd3eFJld0NudHIiCmZlZURlZmF1bHQiAnQxIgdvcmlnVmFsIg1vcmlnU2NhbGVNdWx0IgJmMSIDdmFsIg9yZXN1bHRTY2FsZU11bHQiDGZyb21YMThSb3VuZCIFcm91bmQiAnRzIgNhbXQiCHJlc1NjYWxlIghjdXJTY2FsZSIDYWJzIglhYnNCaWdJbnQiAmZjIgNtcGsiBHBtcGsiAnBsIgJwaCIBaCIBdCIDcGF1IgJ1YSIEdHhJZCIDZ2F1IgJhYSICcGEiA2FtcCIDYWRhIgZrZXlGZWUiA2ZlZSIGa2V5RExwIhVrZXlETHBSZWZyZXNoZWRIZWlnaHQiEmtleURMcFJlZnJlc2hEZWxheSIWZExwUmVmcmVzaERlbGF5RGVmYXVsdCIPZExwUmVmcmVzaERlbGF5IgRmY2ZnIgRtdHBrIgJwYyIGaUFtdEFzIgVpUHJBcyIDbWJhIgViQVN0ciIDYXBzIhxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIgN0b2UiA29yViIGc2VuZHJWIgZtYXRjaFYiBHN0cmYiBGFkZHIiA2tleSIEaW50ZiIIdGhyb3dFcnIiA21zZyIGZm10RXJyIgNmY2EiBWluRmVlIgFAIgZvdXRGZWUiAUEiA2lncyICbXAiE2ZlZUNvbGxlY3RvckFkZHJlc3MiA2dwYyIFYW10QXMiB3ByaWNlQXMiCGlQcmljZUFzIgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNzU0NDc3NzMiDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIhJjZmdJbkFtb3VudEFzc2VkSWQiEWNmZ0luUHJpY2VBc3NldElkIgNnZmMiDWZhY3RvcnlDb25maWciD3N0YWtpbmdDb250cmFjdCIPc2xpcGFnZUNvbnRyYWN0Igtnd3hDb250cmFjdCIMcmVzdENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiBWNwYmlyIgN2YWQiAkExIgJBMiIIc2xpcHBhZ2UiBGRpZmYiBHBhc3MiAnZkIgJEMSICRDAiBHNscGciBGZhaWwiA3BjcCIKYW1Bc3NldERjbSIKcHJBc3NldERjbSIFYW1BbXQiBXByQW10IgthbXRBc0FtdFgxOCIKcHJBc0FtdFgxOCIKY2FsY1ByaWNlcyIFbHBBbXQiCGFtdEFzRGNtIgdwckFzRGNtIghwcmljZVgxOCIIbHBBbXRYMTgiDWxwUHJJbkFtQXNYMTgiDWxwUHJJblByQXNYMTgiD2NhbGN1bGF0ZVByaWNlcyIBcCIHdGFrZUZlZSIGYW1vdW50IglmZWVBbW91bnQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiCWluQW1JZFN0ciIJaW5QcklkU3RyIgZhbXREY20iCHByaWNlRGNtIgRscEVtIg9pbkFtQXNzZXRBbXRYMTgiD2luUHJBc3NldEFtdFgxOCIMdXNlclByaWNlWDE4IgFyIgtzbGlwcGFnZVgxOCIPc2xpcHBhZ2VSZWFsWDE4Ig1scEVtaXNzaW9uWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIg0kdDAxODQxNzE4NzYyIgp3cml0ZUFtQW10Igp3cml0ZVByQW10Igtjb21tb25TdGF0ZSIEZ2V0RCICeHAiA3hwMCIDeHAxIgFzIgFhIgNhbm4iC3hwMF94cDFfbl9uIgVhbm5fcyIFYW5uXzEiCWNhbGNETmV4dCIBZCICZGQiA2RkZCICZHAiBGNhbGMiA2FjYyIBaSIFZE5leHQiCGREaWZmUmF3IgVkRGlmZiIDYXJyIg0kdDAyMDY5MDIwNzM4IgIkbCICJHMiBSRhY2MwIgUkZjBfMSICJGEiAiRpIgUkZjBfMiIFZm91bmQiB2dldERPbGQiAW4iCmFQcmVjaXNpb24iEGFubl9zX2FQcmVjaXNpb24iDmFubl9hUHJlY2lzaW9uIgJuMSIDY3VyIg0kdDAyMTM2NzIxMzg3Ig0kdDAyMTgwODIxODU1IgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjIzNTUyMjM3NSIBeSIFeU5leHQiBXlEaWZmIg0kdDAyMjY4MjIyNzI5IgdjYWxjRExwIg1hbW91bnRCYWxhbmNlIgxwcmljZUJhbGFuY2UiCmxwRW1pc3Npb24iCnVwZGF0ZWRETHAiDmNhbGNDdXJyZW50RExwIhBhbW91bnRBc3NldERlbHRhIg9wcmljZUFzc2V0RGVsdGEiFGxwQXNzZXRFbWlzc2lvbkRlbHRhIhJhbW91bnRBc3NldEJhbGFuY2UiEXByaWNlQXNzZXRCYWxhbmNlIg9scEFzc2V0RW1pc3Npb24iCmN1cnJlbnRETHAiEnJlZnJlc2hETHBJbnRlcm5hbCIXYW1vdW50QXNzZXRCYWxhbmNlRGVsdGEiFnByaWNlQXNzZXRCYWxhbmNlRGVsdGEiB2FjdGlvbnMiEnZhbGlkYXRlVXBkYXRlZERMcCIGb2xkRExwIht2YWxpZGF0ZU1hdGNoZXJPcmRlckFsbG93ZWQiBW9yZGVyIhFhbW91bnRBc3NldEFtb3VudCIQcHJpY2VBc3NldEFtb3VudCINJHQwMjQ2NjgyNDg4MCIDZExwIg0kdDAyNTIxMDI1MzEwIg11bnVzZWRBY3Rpb25zIgZkTHBOZXciDGlzT3JkZXJWYWxpZCICY2ciA3BtdCICY3AiBmNhbGxlciIHYW1Bc1BtdCIHcHJBc1BtdCINY2FsY1B1dE9uZVRrbiIJcG10QW10UmF3Igt3aXRoVGFrZUZlZSINY2hlY2hFbWlzc2lvbiINJHQwMjc1NzYyODAzOCIMYW1CYWxhbmNlT2xkIgxwckJhbGFuY2VPbGQiDSR0MDI4MDQ0MjgyMjAiC2FtQW1vdW50UmF3IgtwckFtb3VudFJhdyINJHQwMjgyMjQyODQ3OCIIYW1BbW91bnQiCHByQW1vdW50IgxhbUJhbGFuY2VOZXciDHByQmFsYW5jZU5ldyIGY2hlY2tEIghscEFtb3VudCIOcG9vbFByb3BvcnRpb24iD2Ftb3VudEFzc2V0UGFydCIOcHJpY2VBc3NldFBhcnQiCWxwQW10Qm90aCIFYm9udXMiE2dldE9uZVRrblYySW50ZXJuYWwiCm91dEFzc2V0SWQiDG1pbk91dEFtb3VudCIIcGF5bWVudHMiDG9yaWdpbkNhbGxlciINdHJhbnNhY3Rpb25JZCIKYW1EZWNpbWFscyIKcHJEZWNpbWFscyIKcG9vbFN0YXR1cyINJHQwMzA1MjgzMDYzOSIIdG90YWxHZXQiC3RvdGFsQW1vdW50Ig0kdDAzMDgyOTMxMTM2IgVvdXRBbSIFb3V0UHIiCGN1clByWDE4IgVjdXJQciIRb3V0QXNzZXRJZE9yV2F2ZXMiEHNlbmRGZWVUb01hdGNoZXIiBGJ1cm4iDSR0MDMxOTIxMzIyNzEiEGZlZUFtb3VudEZvckNhbGMiEG91dEluQW1vdW50QXNzZXQiDSR0MDMyMjc0MzIzODIiEXJlZnJlc2hETHBBY3Rpb25zIhFpc1VwZGF0ZWRETHBWYWxpZCIBbSIHJG1hdGNoMCICcG0iAnBkIglpc01hbmFnZXIiAnBrIgJtbSIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiAmNtIgNocG0iA2NwbSIEc2xpcCIJYXV0b1N0YWtlIgdmYWN0Q2ZnIgtzdGFraW5nQ250ciIIc2xpcENudHIiCmFtQXNzZXRQbXQiCnByQXNzZXRQbXQiAWUiCWxwQXNzZXRJZCICZWwiBmxlZ2FjeSICc2EiAnNwIghscFRybnNmciICc3MiDSR0MDM2NTMxMzY2NzMiBWNoZWNrIhRscEFzc2V0RW1pc3Npb25BZnRlciIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiBmNoZWNrcyINJHQwMzg2NDUzODgwMyIHZXN0aW1MUCINJHQwMzk2MTgzOTk2NyIUcGF5bWVudEluQW1vdW50QXNzZXQiDSR0MDM5OTcwNDAwNzgiB21heFNscGciBmVzdFB1dCINJHQwNDExMDg0MTE3MyIJb3V0QW10QW10Ig0kdDA0MjM0NjQyNDI4Ig1pc0dldERpc2FibGVkIg0kdDA0MzA0NjQzMjAxIhhsYXN0UmVmcmVzaGVkQmxvY2tIZWlnaHQiHWNoZWNrTGFzdFJlZnJlc2hlZEJsb2NrSGVpZ2h0Ig0kdDA0MzcyNTQzNzg5IhBkTHBVcGRhdGVBY3Rpb25zIg1scEFzc2V0QW1vdW50IgVpbmRleCIEbmV3WSICZHkiC3RvdGFsR2V0UmF3Ig0kdDA0NDcxOTQ0Nzc0Ig0kdDA0NTE0OTQ1MjY0Ig5zdW1PZkdldEFzc2V0cyISbm9MZXNzVGhlbkFtdEFzc2V0IhRub0xlc3NUaGVuUHJpY2VBc3NldCIUYnVybkxQQXNzZXRPbkZhY3RvcnkiDSR0MDQ2NDMwNDY1MTEiDWNoZWNrUGF5bWVudHMiCmZhY3RvcnlDZmciB3N0YWtpbmciCnVuc3Rha2VJbnYiAXYiBWJ1cm5BIg0kdDA0NzUzNTQ3NjE2Ig11bnN0YWtlQW1vdW50IhVub0xlc3NUaGVuQW1vdW50QXNzZXQiA3JlcyIMY2hlY2tBbW91bnRzIg0kdDA0ODg2NDQ4OTQ1Ig0kdDA0OTg0MDUwMDI4IhBwYXltZW50QW1vdW50UmF3Ig5wYXltZW50QXNzZXRJZCINJHQwNTAxNTY1MDI1OSINJHQwNTA0MDc1MDUxMSIIYW10QXNTdHIiB3ByQXNTdHIiAWsiAnByIgxyZXNTY2FsZU11bHQiB3VzckFkZHIiB3BtdEFzSWQiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleSIKbWF0Y2hlclB1YiIKb3JkZXJWYWxpZCILc2VuZGVyVmFsaWQiDG1hdGNoZXJWYWxpZCIHbmV3SGFzaCILYWxsb3dlZEhhc2giC2N1cnJlbnRIYXNofwABYQCAwtcvAAFiCQC2AgEAgMLXLwABYwkAtgIBAICAkLu61q3wDQABZAkAtgIBAAAAAWUJALYCAQAAAAFmCQC2AgEAAQABZwkAtgIBAAIAAWgJALYCAQADAAFpCQC2AgEABAABagkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWsCBVdBVkVTAAFsAgMxMDAAAW0CATEAAW4CAl9fAAFvAgAAAXAAAQABcQACAAFyAAMAAXMABAABdAABAAF1AAIAAXYAAwABdwAEAAF4AAUAAXkABgABegAHAAFBAAgAAUIACQABQwABAAFEAAYAAUUABwABRgAKAAFHCQBrAwAKBQFhAJBOAQFIAgFJAUoJALwCAwkAtgIBBQFJBQFjCQC2AgEFAUoBAUsCAUwBTQkAoAMBCQC8AgMFAUwJALYCAQUBTQUBYwEBTgMBTAFNAU8JAKADAQkAvQIEBQFMCQC2AgEFAU0FAWMFAU8BAVADAVEBUgFTCQBrAwUBUQUBUgUBUwEBVAEBTAMJAL8CAgUBZAUBTAkAvgIBBQFMBQFMAQFVAQFMAwkAvwICBQFkBQFMCQC+AgEFAUwFAUwBAVYAAhMlc19fZmFjdG9yeUNvbnRyYWN0AQFXAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBAVgAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAVkAAhElcyVzX19wcmljZV9fbGFzdAEBWgICYWECYWIJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQJhYQkAzAgCCQCkAwEFAmFiBQNuaWwFAW4BAmFjAgJhZAJhZQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAmFkAgJfXwUCYWUBAmFmAgJhZAJhZQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAmFkAgJfXwUCYWUBAmFnAAIPJXNfX2Ftb3VudEFzc2V0AQJhaAACDiVzX19wcmljZUFzc2V0AQJhaQACByVzX19hbXABAmFqAAINJXNfX2FkZG9uQWRkcgACYWsCByVzX19mZWUAAmFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAmFrBQFHAAJhbQkAuQkCCQDMCAICAiVzCQDMCAICA2RMcAUDbmlsBQFuAAJhbgkAuQkCCQDMCAICAiVzCQDMCAICEmRMcFJlZnJlc2hlZEhlaWdodAUDbmlsBQFuAAJhbwkAuQkCCQDMCAICAiVzCQDMCAICD3JlZnJlc2hETHBEZWxheQUDbmlsBQFuAAJhcAABAAJhcQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQJhbwUCYXABAmFyAAIRJXNfX2ZhY3RvcnlDb25maWcBAmFzAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhdAICYXUCYXYJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmF1AgJfXwUCYXYCCF9fY29uZmlnAQJhdwECYXgJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYXgBAmF5AAIMJXNfX3NodXRkb3duAQJhegACHSVzX19hbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAQJhQQACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhQgMCYUMCYUQCYUUJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIRRmFpbGVkOiBvcmRWYWxpZD0JAKUDAQUCYUMCCyBzbmRyVmFsaWQ9CQClAwEFAmFEAgwgbXRjaHJWYWxpZD0JAKUDAQUCYUUBAmFGAgJhRwJhSAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmFHBQJhSAkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhRwkAzAgCAgEuCQDMCAIFAmFICQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFJAgJhRwJhSAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmFHBQJhSAkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhRwkAzAgCAgEuCQDMCAIFAmFICQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFKAQJhSwkAAgEJALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYUsFA25pbAIBIAECYUwBAmFLCQC5CQIJAMwIAgIPbHBfc3RhYmxlLnJpZGU6CQDMCAIFAmFLBQNuaWwCASAAAmFNCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYUYCBQR0aGlzCQEBVgAAAmFOCgACYU8JAPwHBAUCYU0CEGdldEluRmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhTwIDSW50BQJhTwkAAgEJAKwCAgkAAwEFAmFPAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFQCgACYU8JAPwHBAUCYU0CEWdldE91dEZlZVJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYU8CA0ludAUCYU8JAAIBCQCsAgIJAAMBBQJhTwIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AAJhUQkBAmFGAgUEdGhpcwkBAmFpAAECYVIACQELdmFsdWVPckVsc2UCCQCbCAIFAmFNCQECYXkABwECYVMACQDZBAEJAQJhRgIFAmFNCQECYXMAAAJhVAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmFGAgUCYU0JAQJhQQABAmFVAAQCYVYJAQJhRgIFBHRoaXMJAQJhZwAEAmFXCQECYUYCBQR0aGlzCQECYWgABAJhWAkBAmFJAgUCYU0JAQJhdwEFAmFXBAJhdQkBAmFJAgUCYU0JAQJhdwEFAmFWCQC1CQIJAQJhRgIFAmFNCQECYXQCCQCkAwEFAmF1CQCkAwEFAmFYBQFuAQJhWQECYVoDCQAAAgUCYVoFAWsFBHVuaXQJANkEAQUCYVoBAmJhAQJhWgMJAAACBQJhWgUEdW5pdAUBawkA2AQBCQEFdmFsdWUBBQJhWgECYmIBAmJjCQCbCgkJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYmMFAXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiYwUBdQkA2QQBCQCRAwIFAmJjBQF2CQECYVkBCQCRAwIFAmJjBQF3CQECYVkBCQCRAwIFAmJjBQF4CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYmMFAXkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiYwUBegkA2QQBCQCRAwIFAmJjBQFBCQDZBAEJAJEDAgUCYmMFAUIAAmJkCQECYmIBCQECYVUAAAJiZQUCYmQAAmJmCAUCYmUCXzEAAmJnCAUCYmUCXzIAAmJoCAUCYmUCXzMAAmJpCAUCYmUCXzQAAmJqCAUCYmUCXzUAAmJrCAUCYmUCXzYAAmJsCAUCYmUCXzcAAmJtCAUCYmUCXzgAAmJuCAUCYmUCXzkBAmJvAAkAtQkCCQECYUYCBQJhTQkBAmFyAAUBbgACYnAJAQJibwAAAmJxCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJicAUBQwIgSW52YWxpZCBzdGFraW5nIGNvbnRyYWN0IGFkZHJlc3MAAmJyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJicAUBRQIgSW52YWxpZCBzbGlwYWdlIGNvbnRyYWN0IGFkZHJlc3MAAmJzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJicAUBRgIcSW52YWxpZCBnd3ggY29udHJhY3QgYWRkcmVzcwACYnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJwBQFEAhxJbnZhbGlkIGd3eCBjb250cmFjdCBhZGRyZXNzAQJidQoCYnYCYncCYngCYnkCYnoCYkECYkICYkMCYkQCYkUJALkJAgkAzAgCAhQlZCVkJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmJ2CQDMCAIJAKQDAQUCYncJAMwIAgkApAMBBQJieAkAzAgCCQCkAwEFAmJ5CQDMCAIJAKQDAQUCYnoJAMwIAgkApAMBBQJiQQkAzAgCCQCkAwEFAmJCCQDMCAIJAKQDAQUCYkMJAMwIAgkApAMBBQJiRAkAzAgCCQCkAwEFAmJFBQNuaWwFAW4BAmJGBgJiRwJiSAJiSQJieQJiQgJiQwkAuQkCCQDMCAICDCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmJHCQDMCAIJAKQDAQUCYkgJAMwIAgkApAMBBQJiSQkAzAgCCQCkAwEFAmJ5CQDMCAIJAKQDAQUCYkIJAMwIAgkApAMBBQJiQwUDbmlsBQFuAQJiSgECYksDCQAAAgUCYksCBVdBVkVTCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQDZBAEFAmJLAQJiTAICYk0CYk4JALwCAwUCYk0FAWMFAmJOAQJiTwMCYk0CYk4BTwkAvQIEBQJiTQUBYwUCYk4FAU8BAmJQAwJiUQJiUgJiUwQCYlQJALwCAwkAuAICBQJiUQUCYlIFAWIFAmJSBAJiVQkAvwICCQC4AgIFAmJTCQEBVAEFAmJUBQFkAwkBASEBBQJiVQkAAgEJAKwCAgIKQmlnIHNscGc6IAkApgMBBQJiVAkAlAoCBQJiVQkAmQMBCQDMCAIFAmJRCQDMCAIFAmJSBQNuaWwBAmJWAwJiVwJiWAJiWQQCYlQJALwCAwUCYlgFAWIFAmJXBAJiWgkAvwICBQJiWQUCYlQDAwUCYloGCQC/AgIFAmJYBQJiVwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKYDAQUCYlgCASAJAKYDAQUCYlcCASAJAKYDAQUCYlQCASAJAKYDAQUCYlkFAmJaAQJjYQQCY2ICY2MCY2QCY2UEAmNmCQEBSAIFAmNkBQJjYgQCY2cJAQFIAgUCY2UFAmNjCQECYkwCBQJjZwUCY2YBAmNoAwJjZAJjZQJjaQQCY2oFAmJrBAJjawUCYmwEAmNsCQECY2EEBQJjagUCY2sFAmNkBQJjZQQCYk4JAQFIAgUCY2QFAmNqBAJiTQkBAUgCBQJjZQUCY2sEAmNtCQEBSAIFAmNpBQFhBAJjbgkBAmJMAgUCYk4FAmNtBAJjbwkBAmJMAgUCYk0FAmNtCQDMCAIFAmNsCQDMCAIFAmNuCQDMCAIFAmNvBQNuaWwBAmNwAwJjZAJjZQJjaQQCY3EJAQJjaAMFAmNkBQJjZQUCY2kJAMwIAgkBAUsCCQCRAwIFAmNxAAAFAWEJAMwIAgkBAUsCCQCRAwIFAmNxAAEFAWEJAMwIAgkBAUsCCQCRAwIFAmNxAAIFAWEFA25pbAECY3ICAmNzAmFsBAJjdAMJAAACBQJhbAAAAAAJAGsDBQJjcwUCYWwFAWEJAJQKAgkAZQIFAmNzBQJjdAUCY3QBAmN1BAJjdgJjdwJjeAJjeQQCY3oFAmJoBAJjQQkA2AQBCQEFdmFsdWUBBQJiaQQCY0IJANgEAQkBBXZhbHVlAQUCYmoEAmNDBQJiawQCY0QFAmJsBAJjRQkApAMBBQJiZwQCY0YICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCY3oCC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgkA2AQBBQJjegUCY3cJAAIBAg9Xcm9uZyBwbXQgYXNzZXQEAmNHCQECYkoBBQJjQQQCY0gJAQFIAgUCY0cFAmNDBAJjSQkBAmJKAQUCY0IEAmNKCQEBSAIFAmNJBQJjRAQCY0sJAQJiTAIFAmNKBQJjSAQCY0wJAQFLAgUCY0sFAWEEAmNNCQEBSAIFAmN4BQFhBAJjTgkBAUgCBQJjRgUBYQQCY08JALwCAwUCY0gFAmNNBQJjTgQCY1AJALwCAwUCY0oFAmNNBQJjTgQCY1EJAQFOAwUCY08FAmNDBQVGTE9PUgQCY1IJAQFOAwUCY1AFAmNEBQVGTE9PUgQCY1MDCQAAAgUCY3YCAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmN5BQJjUQMJAAACBQJjQQIFV0FWRVMFBHVuaXQJANkEAQUCY0EJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCY3kFAmNSAwkAAAIFAmNCAgVXQVZFUwUEdW5pdAkA2QQBBQJjQgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWYCCQClCAEFAmN5BQJjdgkBAmJGBgUCY1EFAmNSBQJjeAUCY0wFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFZAAUCY0wJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFaAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0wFA25pbAkAnAoKBQJjUQUCY1IFAmNBBQJjQgUCY0cFAmNJBQJjRgUCY0sFAmNFBQJjUwECY1QNAmN2AmJTAmNVAmNWAmNXAmNYAmN5AmNZAmNaAmRhAmRiAmRjAmRkBAJjegUCYmgEAmRlCQDYBAEJAQV2YWx1ZQEFAmJpBAJkZgkA2AQBCQEFdmFsdWUBBQJiagQCZGcFAmJtBAJkaAUCYm4EAmRpBQJiawQCZGoFAmJsBAJjRQkApAMBBQJiZwQCZGsICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCY3oCCFdyIGxwIGFzCHF1YW50aXR5BAJjRwMFAmNZCQECYkoBBQJkZQMDBQJkYQkAAAIFAmRkBQJkZQcJAGUCCQECYkoBBQJkZQUCZGMDBQJkYQkBAmJKAQUCZGUJAGUCCQECYkoBBQJkZQUCY1UEAmNJAwUCY1kJAQJiSgEFAmRmAwMFAmRhCQAAAgUCZGQFAmRmBwkAZQIJAQJiSgEFAmRmBQJkYwMFAmRhCQECYkoBBQJkZgkAZQIJAQJiSgEFAmRmBQJjVwQCZGwJAQFIAgUCY1UFAmRpBAJkbQkBAUgCBQJjVwUCZGoEAmRuCQECYkwCBQJkbQUCZGwEAmNICQEBSAIFAmNHBQJkaQQCY0oJAQFIAgUCY0kFAmRqBAJkbwMJAAACBQJkawAABAJjSwUBZAQCZHAFAWQEAmNtCQB2BgkAuQICBQJkbAUCZG0AAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQFLAgUCY20FAWEJAQFLAgUCZGwFAmRpCQEBSwIFAmRtBQJkagkBAmJMAgkAtwICBQJjSgUCZG0JALcCAgUCY0gFAmRsBQJkcAQCY0sJAQJiTAIFAmNKBQJjSAQCZHEJALwCAwkBAVQBCQC4AgIFAmNLBQJkbgUBYwUCY0sEAmRwCQEBSAIFAmJTBQFhAwMDBQJkYgkBAiE9AgUCY0sFAWQHCQC/AgIFAmRxBQJkcAcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUCZHECAyA+IAkApgMBBQJkcAQCZHIJAQFIAgUCZGsFAWEEAmRzCQC9AgQFAmRsCQECYk8DBQJjSgUCY0gFBUZMT09SBQFjBQVGTE9PUgQCZHQJAL0CBAUCZG0FAWMJAQJiTwMFAmNKBQJjSAUFRkxPT1IFBUZMT09SBAJkdQMJAL8CAgUCZHMFAmRtCQCUCgIFAmR0BQJkbQkAlAoCBQJkbAUCZHMEAmR2CAUCZHUCXzEEAmR3CAUCZHUCXzIEAmNtCQC9AgQFAmRyBQJkdwUCY0oFBUZMT09SCQCXCgUJAQFOAwUCY20FAWEFBUZMT09SCQEBTgMFAmR2BQJkaQUHQ0VJTElORwkBAU4DBQJkdwUCZGoFB0NFSUxJTkcFAmNLBQJkcAQCZHgIBQJkbwJfMQQCZHkIBQJkbwJfMgQCZHoIBQJkbwJfMwQCY0wJAQFLAggFAmRvAl80BQFhBAJkQQkBAUsCCAUCZG8CXzUFAWEDCQBnAgAABQJkeAkAAgECB0xQIDw9IDAEAmRCAwkBASEBBQJjWgAABQJkeAQCZEMJAGUCBQJjVQUCZHkEAmRECQBlAgUCY1cFAmR6BAJkRQMDBQJkYQkAAAIFAmRkBQJkZQcJAJQKAgUCZGMAAAMDBQJkYQkAAAIFAmRkBQJkZgcJAJQKAgAABQJkYwkAlAoCBQJkeQUCZHoEAmRGCAUCZEUCXzEEAmRHCAUCZEUCXzIEAmRICQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBWQAFAmNMCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBWgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNMCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYwIFAmN5BQJjdgkBAmJ1CgUCZEYFAmRHBQJkQgUCY0wFAmJTBQJkQQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZEMFAmREBQNuaWwJAJ8KDQUCZHgFAmRCBQJjTAUCY0cFAmNJBQJkawUCY3oFAmNFBQJkSAUCZEMFAmREBQJjVgUCY1gBAmRJAQJkSgQCZEsJAJEDAgUCZEoAAAQCZEwJAJEDAgUCZEoAAQQCZE0JALcCAgUCZEsFAmRMAwkAAAIFAmRNBQFlBQFlBAJkTgkBDXBhcnNlSW50VmFsdWUBBQJhUQQCZE8JAGgCBQJkTgACBAJjcQkAvAIDBQJkSwUCZEwFAWYEAmRQCQC8AgMFAmNxBQFpBQFmBAJkUQkAvAIDCQC2AgEFAmRPBQJkTQUBZgQCZFIJALYCAQkAZQIFAmRPAAEKAQJkUwECZFQEAmRVCQC8AgMFAmRUBQJkVAUBZgQCZFYJALwCAwUCZFUFAmRUBQFmBAJkVwkAvAIDBQJkVgUBZgUCZFAJAL0CBAkAtwICBQJkUQkAvAIDBQJkVwUBZwUBZgUCZFQJALcCAgkAvAIDBQJkUgUCZFQFAWYJALwCAwUBaAUCZFcFAWYFB0NFSUxJTkcKAQJkWAICZFkCZFoDCAUCZFkCXzIFAmRZBAJkVAgFAmRZAl8xBAJlYQkBAmRTAQUCZFQEAmViCQCgAwEJALgCAgUCZWEJAQV2YWx1ZQEFAmRUBAJlYwMJAGYCAAAFAmViCQEBLQEFAmViBQJlYgMJAGcCAAEFAmVjCQCUCgIFAmVhBgkAlAoCBQJlYQcEAmVkCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOBQNuaWwEAmVlCgACZWYFAmVkCgACZWcJAJADAQUCZWYKAAJlaAkAlAoCBQJkTQcKAQJlaQICZWoCZWsDCQBnAgUCZWsFAmVnBQJlagkBAmRYAgUCZWoJAJEDAgUCZWYFAmVrCgECZWwCAmVqAmVrAwkAZwIFAmVrBQJlZwUCZWoJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmVsAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgUCZWgAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZFQIBQJlZQJfMQQCZW0IBQJlZQJfMgMFAmVtBQJkVAkAAgEJAKwCAgIZRCBjYWxjdWxhdGlvbiBlcnJvciwgRCA9IAkApgMBBQJkVAECZW4BAmRKBAJlbwUBZwQCZEsJAJEDAgUCZEoAAAQCZEwJAJEDAgUCZEoAAQQCZXAJAKcDAQUBbAQCZE4JALkCAgkApwMBBQJhUQUCZXAEAmRNCQC3AgIFAmRLBQJkTAMJAAACBQJkTQUBZQUBZQQCZE8JALkCAgUCZE4FAmVvBAJkUAkAuQICCQC5AgIJALkCAgUCZEsFAmRMBQJlbwUCZW8EAmVxCQC6AgIJALkCAgUCZE8FAmRNBQJlcAQCZXIJALgCAgUCZE8FAmVwBAJlcwkAtwICBQJlbwUBZgoBAmRYAgJkWQJldAQCZXUFAmRZBAJkVAgFAmV1Al8xBAJlbQgFAmV1Al8yAwkBAiE9AgUCZW0FBHVuaXQFAmRZBAJkVwkAugICCQC5AgIJALkCAgUCZFQFAmRUBQJkVAUCZFAEAmVhCQC6AgIJALkCAgkAtwICBQJlcQkAuQICBQJkVwUCZW8FAmRUCQC3AgIJALoCAgkAuQICBQJlcgUCZFQFAmVwCQC5AgIFAmVzBQJkVwQCZWMJAQFVAQkAuAICBQJlYQkBBXZhbHVlAQUCZFQDCQDAAgIFAWYFAmVjCQCUCgIFAmVhBQJldAkAlAoCBQJlYQUEdW5pdAQCZWQJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZXYKAAJlZgUCZWQKAAJlZwkAkAMBBQJlZgoAAmVoCQCUCgIFAmRNBQR1bml0CgECZWkCAmVqAmVrAwkAZwIFAmVrBQJlZwUCZWoJAQJkWAIFAmVqCQCRAwIFAmVmBQJlawoBAmVsAgJlagJlawMJAGcCBQJlawUCZWcFAmVqCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJlbAIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIJAQJlaQIFAmVoAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmRUCAUCZXYCXzEEAmVtCAUCZXYCXzIDCQECIT0CBQJlbQUEdW5pdAUCZFQJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZFQBAmV3AwJkSgJkWgJleAQCZW8FAWcEAmV5CQCRAwIFAmRKAwkAAAIFAmRaAAAAAQAABAJlcAkApwMBBQFsBAJkTgkAuQICCQCnAwEFAmFRBQJlcAQCZE0FAmV5BAJkTwkAuQICBQJkTgUCZW8EAmV6CQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXgFAmV4CQC5AgIFAmV5BQJlbwUCZXgFAmVwCQC5AgIFAmRPBQJlbwQCZUEJALgCAgkAtwICBQJkTQkAugICCQC5AgIFAmV4BQJlcAUCZE8FAmV4CgECZFgCAmRZAmV0BAJlQgUCZFkEAmVDCAUCZUICXzEEAmVtCAUCZUICXzIDCQECIT0CBQJlbQUEdW5pdAUCZFkEAmVECQC6AgIJALcCAgkAuQICBQJlQwUCZUMFAmV6CQC3AgIJALkCAgUBZwUCZUMFAmVBBAJlRQkBAVUBCQC4AgIFAmVECQEFdmFsdWUBBQJlQwMJAMACAgUBZgUCZUUJAJQKAgUCZUQFAmV0CQCUCgIFAmVEBQR1bml0BAJlZAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlRgoAAmVmBQJlZAoAAmVnCQCQAwEFAmVmCgACZWgJAJQKAgUCZXgFBHVuaXQKAQJlaQICZWoCZWsDCQBnAgUCZWsFAmVnBQJlagkBAmRYAgUCZWoJAJEDAgUCZWYFAmVrCgECZWwCAmVqAmVrAwkAZwIFAmVrBQJlZwUCZWoJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmVsAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgkBAmVpAgUCZWgAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUMIBQJlRgJfMQQCZW0IBQJlRgJfMgMJAQIhPQIFAmVtBQR1bml0BQJlQwkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlQwECZUcDAmVIAmVJAmVKBAJlSwkAvAIDCQECZEkBCQDMCAIFAmVICQDMCAIFAmVJBQNuaWwFAWMFAmVKAwkAAAIFAmVKBQFlBQFlBQJlSwECZUwDAmVNAmVOAmVPBAJlUAkAuAICCQC2AgEJAQJiSgEJAQJiYQEFAmJpBQJlTQQCZVEJALgCAgkAtgIBCQECYkoBCQECYmEBBQJiagUCZU4EAmVSCQC4AgIJALYCAQgJAQV2YWx1ZQEJAOwHAQUCYmgIcXVhbnRpdHkFAmVPBAJlUwkBAmVHAwUCZVAFAmVRBQJlUgUCZVMBAmVUAwJlVQJlVgJlTwQCZVAJAGQCCQECYkoBCQECYmEBBQJiaQUCZVUEAmVRCQBkAgkBAmJKAQkBAmJhAQUCYmoFAmVWBAJlUgkAZAIICQEFdmFsdWUBCQDsBwEFAmJoCHF1YW50aXR5BQJlTwQCZUsJAQJlRwMJALYCAQUCZVAJALYCAQUCZVEJALYCAQUCZVIEAmVXCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJhbgUGaGVpZ2h0CQDMCAIJAQtTdHJpbmdFbnRyeQIFAmFtCQCmAwEFAmVLBQNuaWwJAJQKAgUCZVcFAmVLAQJlWAICZVkCZUsDCQDAAgIFAmVLBQJlWQYJAQJhSgECInVwZGF0ZWQgRExwIGxvd2VyIHRoYW4gY3VycmVudCBETHABAmVaAQJmYQQCZmIIBQJmYQZhbW91bnQEAmZjCQBuBAgFAmZhBmFtb3VudAgFAmZhBXByaWNlBQFhBQVGTE9PUgQCZmQDCQAAAggFAmZhCW9yZGVyVHlwZQUDQnV5CQCUCgIFAmZiCQEBLQEFAmZjCQCUCgIJAQEtAQUCZmIFAmZjBAJlVQgFAmZkAl8xBAJlVggFAmZkAl8yAwMDCQECYVIABgkAAAIFAmJnBQFyBgkAAAIFAmJnBQFzCQACAQINQWRtaW4gYmxvY2tlZAMDCQECIT0CCAgFAmZhCWFzc2V0UGFpcgthbW91bnRBc3NldAUCYmkGCQECIT0CCAgFAmZhCWFzc2V0UGFpcgpwcmljZUFzc2V0BQJiagkAAgECCVdyIGFzc2V0cwQCZmUJAKcDAQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUCYW0EAmZmCQECZVQDBQJlVQUCZVYAAAQCZmcIBQJmZgJfMQQCZmgIBQJmZgJfMgQCZmkJAMACAgUCZmgFAmZlBQJmaQECZmoBAmRaAwkBAiE9AgkAkAMBCAUCZFoIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmZrCQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwAABAJjdwkBBXZhbHVlAQgFAmZrB2Fzc2V0SWQEAmRjCAUCZmsGYW1vdW50BAJkbwkBAmN1BAkA2AQBCAUCZFoNdHJhbnNhY3Rpb25JZAkA2AQBBQJjdwUCZGMIBQJkWgZjYWxsZXIEAmNRCAUCZG8CXzEEAmNSCAUCZG8CXzIEAmNFCQENcGFyc2VJbnRWYWx1ZQEIBQJkbwJfOQQCY1MIBQJkbwNfMTADAwkBAmFSAAYJAAACBQJjRQUBcwkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmNFCQCXCgUFAmNRBQJjUgUCZGMFAmN3BQJjUwECZmwKAmZtAmFlAmZuAmZvAmJTAmNaAmRhAmRiAmRjAmRkBAJkbwkBAmNUDQUCYWUFAmJTCAkBBXZhbHVlAQUCZm4GYW1vdW50CAkBBXZhbHVlAQUCZm4HYXNzZXRJZAgJAQV2YWx1ZQEFAmZvBmFtb3VudAgJAQV2YWx1ZQEFAmZvB2Fzc2V0SWQFAmZtCQAAAgUCYWUCAAUCY1oFAmRhBQJkYgUCZGMFAmRkBAJjRQkBDXBhcnNlSW50VmFsdWUBCAUCZG8CXzgDAwMJAQJhUgAGCQAAAgUCY0UFAXEGCQAAAgUCY0UFAXMJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmNFBQJkbwECZnAFAmZxAmN3AmN5AmFlAmZyBAJjQQkA2AQBCQEFdmFsdWUBBQJiaQQCY0IJANgEAQkBBXZhbHVlAQUCYmoEAmN6BQJiaAQCZGkFAmJrBAJkagUCYmwEAmVSCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCY3oCEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmZzAwkAvwICBQJlUgUBZQYJAAIBAiJpbml0aWFsIGRlcG9zaXQgcmVxdWlyZXMgYWxsIGNvaW5zAwkAAAIFAmZzBQJmcwQCY0cJAQJiSgEFAmNBBAJjSQkBAmJKAQUCY0IEAmZ0AwkAAAIFAmFlAgAJAJQKAgUCY0cFAmNJAwkAAAIFAmN3BQJjQQMJAGYCBQJmcQUCY0cJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIJAGUCBQJjRwUCZnEFAmNJAwkAAAIFAmN3BQJjQgMJAGYCBQJmcQUCY0kJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIFAmNHCQBlAgUCY0kFAmZxCQACAQIQd3JvbmcgcG10QXNzZXRJZAQCZnUIBQJmdAJfMQQCZnYIBQJmdAJfMgQCZncDCQAAAgUCY3cFAmNBCQCUCgIFAmZxAAADCQAAAgUCY3cFAmNCCQCUCgIAAAUCZnEJAAIBAg9pbnZhbGlkIHBheW1lbnQEAmZ4CAUCZncCXzEEAmZ5CAUCZncCXzIEAmZ6AwUCZnIJAJUKAwgJAQJjcgIFAmZ4BQJhTgJfMQgJAQJjcgIFAmZ5BQJhTgJfMQgJAQJjcgIFAmZxBQJhTgJfMgkAlQoDBQJmeAUCZnkAAAQCZkEIBQJmegJfMQQCZkIIBQJmegJfMgQCY3QIBQJmegJfMwQCZkMJAGQCBQJmdQUCZkEEAmZECQBkAgUCZnYFAmZCBAJiWAkBAmRJAQkAzAgCCQC2AgEFAmZ1CQDMCAIJALYCAQUCZnYFA25pbAQCYlcJAQJkSQEJAMwIAgkAtgIBBQJmQwkAzAgCCQC2AgEFAmZEBQNuaWwEAmZFAwkAvwICBQJiVwUCYlgGCQEFdGhyb3cAAwkAAAIFAmZFBQJmRQQCZkYJAL0CBAUCZVIJALgCAgUCYlcFAmJYBQJiWAUFRkxPT1IEAmNMCQEBSwIJAQJiTAIJAQFIAgUCZkQFAmRqCQEBSAIFAmZDBQJkaQUBYQQCZEgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFZAAUCY0wJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFaAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0wJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFjAgUCY3kFAmFlCQECYnUKBQJmeAUCZnkJAKADAQUCZkYFAmNMAAAAAAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAAAAAAFA25pbAQCZkcJAGsDBQJmdgUBYQUCZnUEAmZICQBrAwUCZnEFAWEJAGQCBQJmRwUBYQQCZkkJAGUCBQJmcQUCZkgEAmZKCQC8AgMFAmVSCQC2AgEFAmZJCQC2AgEFAmZ2BAJmSwkAoAMBCQC8AgMJALgCAgUCZkYFAmZKBQFiBQJmSgkAlgoECQCgAwEFAmZGBQJkSAUCY3QFAmZLCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJmTAYCZk0CZk4CZk8CZm0CZlACZlEEAmN6CQDYBAEJAQV2YWx1ZQEFAmJoBAJjQQkA2AQBCQEFdmFsdWUBBQJiaQQCY0IJANgEAQkBBXZhbHVlAQUCYmoEAmZSBQJiawQCZlMFAmJsBAJmVAUCYmcEAmN5AwkAAAIFAmZtBQJidAUCZlAFAmZtBAJmawkBBXZhbHVlAQkAkQMCBQJmTwAABAJjdwkBBXZhbHVlAQgFAmZrB2Fzc2V0SWQEAmRjCAUCZmsGYW1vdW50BAJlUwkBAmVMAwUBZQUBZQUBZQMJAAACBQJlUwUCZVMEAmN2CQDYBAEFAmZRAwkBAiE9AgUCY3oJANgEAQUCY3cJAAIBAghXcm9uZyBMUAQCY0cJAQJiSgEFAmNBBAJjSQkBAmJKAQUCY0IEAmZVCgACYU8JAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmTQkAzAgCBQJkYwUDbmlsBQNuaWwDCQABAgUCYU8CCihJbnQsIEludCkFAmFPCQACAQkArAICCQADAQUCYU8CHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkDCQAAAgUCZlUFAmZVBAJjdAgFAmZVAl8yBAJmVggFAmZVAl8xBAJmVwMDCQBmAgUCZk4AAAkAZgIFAmZOBQJmVgcJAQJhSgEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZk4FA25pbAIABQJmVgQCZlgDCQAAAgUCZk0FAmNBCQCWCgQFAmZXAAAJAGUCCQBlAgUCY0cFAmZXBQJjdAUCY0kDCQAAAgUCZk0FAmNCCQCWCgQAAAUCZlcFAmNHCQBlAgkAZQIFAmNJBQJmVwUCY3QJAAIBAhRpbnZhbGlkIG91dCBhc3NldCBpZAQCZlkIBQJmWAJfMQQCZloIBQJmWAJfMgQCZkMIBQJmWAJfMwQCZkQIBQJmWAJfNAQCZ2EJAQJiTAIJAQFIAgUCZkQFAmZTCQEBSAIFAmZDBQJmUgQCZ2IJAQFLAgUCZ2EFAWEEAmdjAwkAAAIFAmZNAgVXQVZFUwUEdW5pdAkA2QQBBQJmTQQCZ2QDCQBmAgUCY3QAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhVAUCY3QFAmdjBQNuaWwFA25pbAQCY1MJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJjeQUCZlcFAmdjCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZgIJAKUIAQUCY3kFAmN2CQECYkYGBQJmWQUCZloFAmRjBQJnYgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVkABQJnYgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVoCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJnYgUDbmlsBQJnZAMJAAACBQJjUwUCY1MEAmdlCQD8BwQFAmFNAgRidXJuCQDMCAIFAmRjBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmN3BQJkYwUDbmlsAwkAAAIFAmdlBQJnZQQCZ2YEAmdnAwkAAAIFBHRoaXMFAmFUAAAFAmN0BAJnaAMJAAACCQECYVkBBQJmTQUCYmkGBwMFAmdoCQCUCgIJAQEtAQkAZAIFAmZWBQJnZwAACQCUCgIAAAkBAS0BCQBkAgUCZlYFAmdnBAJlVQgFAmdmAl8xBAJlVggFAmdmAl8yBAJnaQkBAmVUAwUCZVUFAmVWAAAEAmdqCAUCZ2kCXzEEAmVLCAUCZ2kCXzIEAmdrCQECZVgCBQJlUwUCZUsDCQAAAgUCZ2sFAmdrCQCUCgIJAM4IAgUCY1MFAmdqBQJmVwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZ2wABAJnbQkAoggBCQEBVwADCQABAgUCZ20CBlN0cmluZwQCZE0FAmdtCQDZBAEFAmRNAwkAAQIFAmdtAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmduAAQCZ20JAKIIAQkBAVgAAwkAAQIFAmdtAgZTdHJpbmcEAmRNBQJnbQkA2QQBBQJkTQMJAAECBQJnbQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJnbwkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJncAECZFoEAmdtCQECZ2wAAwkAAQIFAmdtAgpCeXRlVmVjdG9yBAJncQUCZ20JAAACCAUCZFoPY2FsbGVyUHVibGljS2V5BQJncQMJAAECBQJnbQIEVW5pdAkAAAIIBQJkWgZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgECZ3IBAmRaBAJnbQkBAmdsAAMJAAECBQJnbQIKQnl0ZVZlY3RvcgQCZ3EFAmdtAwkAAAIIBQJkWg9jYWxsZXJQdWJsaWNLZXkFAmdxBgUCZ28DCQABAgUCZ20CBFVuaXQDCQAAAggFAmRaBmNhbGxlcgUEdGhpcwYFAmdvCQACAQILTWF0Y2ggZXJyb3IcAmRaAQtjb25zdHJ1Y3RvcgEBVgQCZXoJAQJncgEFAmRaAwkAAAIFAmV6BQJlegkAzAgCCQELU3RyaW5nRW50cnkCCQEBVgAFAVYFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkWgEKc2V0TWFuYWdlcgECZ3MEAmV6CQECZ3IBBQJkWgMJAAACBQJlegUCZXoEAmd0CQDZBAEFAmdzAwkAAAIFAmd0BQJndAkAzAgCCQELU3RyaW5nRW50cnkCCQEBWAAFAmdzBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBDmNvbmZpcm1NYW5hZ2VyAAQCY3EJAQJnbgAEAmd1AwkBCWlzRGVmaW5lZAEFAmNxBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJndQUCZ3UEAmd2AwkAAAIIBQJkWg9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmNxBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJndgUCZ3YJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVcACQDYBAEJAQV2YWx1ZQEFAmNxCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFYAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRaAQNwdXQCAmd3Amd4BAJneQkBAmJvAAQCZ3oJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmd5BQFDAgpXciBzdCBhZGRyBAJnQQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3kFAUUCCldyIHNsIGFkZHIDCQBmAgAABQJndwkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUCZFoIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZ0IJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmRaCHBheW1lbnRzAAAGYW1vdW50BAJnQwkAtgIBCAkBBXZhbHVlAQkAkQMCCAUCZFoIcGF5bWVudHMAAQZhbW91bnQEAmVQCQC4AgIJALYCAQkBAmJKAQkBAmJhAQUCYmkFAmdCAwkAAAIFAmVQBQJlUAQCZVEJALgCAgkAtgIBCQECYkoBCQECYmEBBQJiagUCZ0MDCQAAAgUCZVEFAmVRBAJlUgkAtgIBCAkBBXZhbHVlAQkA7AcBBQJiaAhxdWFudGl0eQMJAAACBQJlUgUCZVIEAmVTCQECZUwDBQJnQgUCZ0MJALYCAQAAAwkAAAIFAmVTBQJlUwQCZ0QJAQJmbAoJAKUIAQgFAmRaBmNhbGxlcgkA2AQBCAUCZFoNdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZFoIcGF5bWVudHMAAQUCZ3cGBwYAAAIABAJkQggFAmdEAl8yBAJnRQgFAmdEAl83BAJjUwgFAmdEAl85BAJkQwgFAmdEA18xMAQCZEQIBQJnRANfMTEEAmNBCAUCZ0QDXzEyBAJjQggFAmdEA18xMwQCZG8JAPwHBAUCYU0CBGVtaXQJAMwIAgUCZEIFA25pbAUDbmlsAwkAAAIFAmRvBQJkbwQCZ0YEAmdtBQJkbwMJAAECBQJnbQIHQWRkcmVzcwQCZ0cFAmdtCQD8BwQFAmdHAgRlbWl0CQDMCAIFAmRCBQNuaWwFA25pbAUEdW5pdAMJAAACBQJnRgUCZ0YEAmdIAwkAZgIFAmRDAAAJAPwHBAUCZ0ECA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjQQUCZEMFA25pbAUDbmlsAwkAAAIFAmdIBQJnSAQCZ0kDCQBmAgUCZEQAAAkA/AcEBQJnQQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNCBQJkRAUDbmlsBQNuaWwDCQAAAgUCZ0kFAmdJBAJnSgMFAmd4BAJnSwkA/AcEBQJnegIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZ0UFAmRCBQNuaWwDCQAAAgUCZ0sFAmdLBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRaBmNhbGxlcgUCZEIFAmdFBQNuaWwEAmdMCQECZVQDAAAAAAAABAJnaggFAmdMAl8xBAJlSwgFAmdMAl8yBAJnTQMJAMACAgUCZUsFAmVTBgkBAmFKAQkAuQkCCQDMCAICInVwZGF0ZWQgRExwIGxvd2VyIHRoYW4gY3VycmVudCBETHAJAMwIAgkApgMBBQJlUAkAzAgCCQCmAwEFAmVRCQDMCAIJAKYDAQUCZVIJAMwIAgkApgMBBQJlUwkAzAgCCQCmAwEFAmVLCQDMCAIJAKQDAQUCZEMJAMwIAgkApAMBBQJkRAUDbmlsAgEgAwkAAAIFAmdNBQJnTQQCZ04ICQEFdmFsdWUBCQDsBwEFAmJoCHF1YW50aXR5AwkAAAIFAmdOBQJnTgkAzggCCQDOCAIFAmNTBQJnSgUCZ2oJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBC3B1dE9uZVRrblYyAgJmTgJneAQCZ08KAAJhTwkA/AcEBQJhTQIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFPAgdCb29sZWFuBQJhTwkAAgEJAKwCAgkAAwEFAmFPAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnUAMDAwkBAmFSAAYJAAACBQJiZwUBcQYJAAACBQJiZwUBcwYFAmdPBAJnUQkAzAgCAwMJAQEhAQUCZ1AGCQECZ3ABBQJkWgYJAQJhSgECIXB1dCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRaCHBheW1lbnRzAAEGCQECYUoBAh5leGFjdGx5IDEgcGF5bWVudCBhcmUgZXhwZWN0ZWQFA25pbAMJAAACBQJnUQUCZ1EEAmNBCQDYBAEJAQV2YWx1ZQEFAmJpBAJjQgkA2AQBCQEFdmFsdWUBBQJiagQCY3oFAmJoBAJmUgUCYmsEAmZTBQJibAQCY3kDCQAAAggFAmRaBmNhbGxlcgUEdGhpcwgFAmRaDG9yaWdpbkNhbGxlcggFAmRaBmNhbGxlcgQCZmsJAQV2YWx1ZQEJAJEDAggFAmRaCHBheW1lbnRzAAAEAmN3CQDYBAEJAQV2YWx1ZQEIBQJmawdhc3NldElkBAJkYwgFAmZrBmFtb3VudAQCZVMDCQAAAggFAmZrB2Fzc2V0SWQFAmJpCQECZUwDCQC2AgEFAmRjCQC2AgEAAAkAtgIBAAAJAQJlTAMJALYCAQAACQC2AgEFAmRjCQC2AgEAAAMJAAACBQJlUwUCZVMEAmdSCQECZnAFBQJkYwUCY3cJAKUIAQUCY3kJANgEAQgFAmRaDXRyYW5zYWN0aW9uSWQGAwkAAAIFAmdSBQJnUgQCY3QIBQJnUgJfMwQCY1MIBQJnUgJfMgQCZ1MIBQJnUgJfMQQCZEIDAwkAZgIFAmZOAAAJAGYCBQJmTgUCZ1MHCQECYUoBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZOBQNuaWwCAAUCZ1MEAmdECQD8BwQFAmFNAgRlbWl0CQDMCAIFAmRCBQNuaWwFA25pbAMJAAACBQJnRAUCZ0QEAmdGBAJnbQUCZ0QDCQABAgUCZ20CB0FkZHJlc3MEAmdHBQJnbQkA/AcEBQJnRwIEZW1pdAkAzAgCBQJkQgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZ0YFAmdGBAJnSgMFAmd4BAJnSwkA/AcEBQJicQIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY3oFAmRCBQNuaWwDCQAAAgUCZ0sFAmdLBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRaBmNhbGxlcgUCZEIFAmN6BQNuaWwEAmdkAwkAZgIFAmN0AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYVQFAmN0CQDZBAEFAmN3BQNuaWwFA25pbAQCZ1QDCQAAAgUEdGhpcwUCYVQJAJQKAgAAAAAEAmdVAwkAAAIIBQJmawdhc3NldElkBQJiaQYHAwUCZ1UJAJQKAgkBAS0BBQJjdAAACQCUCgIAAAkBAS0BBQJjdAQCZVUIBQJnVAJfMQQCZVYIBQJnVAJfMgQCZ1YJAQJlVAMFAmVVBQJlVgAABAJnaggFAmdWAl8xBAJlSwgFAmdWAl8yBAJnawkBAmVYAgUCZVMFAmVLAwkAAAIFAmdrBQJnawkAlAoCCQDOCAIJAM4IAgkAzggCBQJjUwUCZ0oFAmdkBQJnagUCZEIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBCnB1dEZvckZyZWUBAmdXAwkAZgIAAAUCZ1cJAAIBAgpXcm9uZyBzbHBnAwkBAiE9AgkAkAMBCAUCZFoIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZ1gJAQJmbAoJAKUIAQgFAmRaBmNhbGxlcgkA2AQBCAUCZFoNdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZFoIcGF5bWVudHMAAQUCZ1cHBwYAAAIABAJjUwgFAmdYAl85BAJnQgkAtgIBCAkBBXZhbHVlAQkAkQMCCAUCZFoIcGF5bWVudHMAAAZhbW91bnQEAmdDCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJkWghwYXltZW50cwABBmFtb3VudAQCZVMJAQJlTAMFAmdCBQJnQwkAtgIBAAADCQAAAgUCZVMFAmVTBAJnWQkBAmVUAwAAAAAAAAQCZ2oIBQJnWQJfMQQCZUsIBQJnWQJfMgQCZ2sJAQJlWAIFAmVTBQJlSwMJAAACBQJnawUCZ2sJAM4IAgUCY1MFAmdqCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRaAQNnZXQABAJlUwkBAmVMAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlUwUCZVMEAmRvCQECZmoBBQJkWgQCZ1oIBQJkbwJfMQQCY1IIBQJkbwJfMgQCZGMIBQJkbwJfMwQCY3cIBQJkbwJfNAQCY1MIBQJkbwJfNQQCZUEJAPwHBAUCYU0CBGJ1cm4JAMwIAgUCZGMFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY3cFAmRjBQNuaWwDCQAAAgUCZUEFAmVBBAJoYQkBAmVUAwkBAS0BBQJnWgkBAS0BBQJjUgAABAJnaggFAmhhAl8xBAJlSwgFAmhhAl8yBAJnawkBAmVYAgUCZVMFAmVLAwkAAAIFAmdrBQJnawkAzggCBQJjUwUCZ2oJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBC2dldE9uZVRrblYyAgJmTQJmTgQCZ08KAAJhTwkA/AcEBQJhTQIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFPAgdCb29sZWFuBQJhTwkAAgEJAKwCAgkAAwEFAmFPAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJoYgMDCQECYVIABgkAAAIFAmJnBQFzBgUCZ08EAmdRCQDMCAIDAwkBASEBBQJoYgYJAQJncAEFAmRaBgkBAmFKAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZFoIcGF5bWVudHMAAQYJAQJhSgECHmV4YWN0bHkgMSBwYXltZW50IGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmdRBQJnUQQCaGMJAQJmTAYFAmZNBQJmTggFAmRaCHBheW1lbnRzCAUCZFoGY2FsbGVyCAUCZFoMb3JpZ2luQ2FsbGVyCAUCZFoNdHJhbnNhY3Rpb25JZAQCY1MIBQJoYwJfMQQCZlcIBQJoYwJfMgkAlAoCBQJjUwUCZlcJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBCnJlZnJlc2hETHAABAJoZAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQJhbgAABAJoZQMJAGcCCQBlAgUGaGVpZ2h0BQJoZAUCYXEFBHVuaXQJAQJhSgEJALkJAgkAzAgCCQCkAwEFAmFxCQDMCAICLyBibG9ja3MgaGF2ZSBub3QgcGFzc2VkIHNpbmNlIHRoZSBwcmV2aW91cyBjYWxsBQNuaWwCAAMJAAACBQJoZQUCaGUEAmZlCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKgDAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQJhbQIBMAkBAmFMAQILaW52YWxpZCBkTHAEAmhmCQECZVQDAAAAAAAABAJoZwgFAmhmAl8xBAJlSwgFAmhmAl8yBAJlVwMJAQIhPQIFAmZlBQJlSwUCaGcJAQJhSgECEm5vdGhpbmcgdG8gcmVmcmVzaAkAlAoCBQJlVwkApgMBBQJlSwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkWgETZ2V0T25lVGtuVjJSRUFET05MWQICZk0CaGgEAmNBCQDYBAEJAQV2YWx1ZQEFAmJpBAJjQgkA2AQBCQEFdmFsdWUBBQJiagQCY3oJANgEAQkBBXZhbHVlAQUCYmgEAmRKCQDMCAIJALYCAQkBAmJKAQUCY0EJAMwIAgkAtgIBCQECYkoBBQJjQgUDbmlsBAJlSgkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCY3oCEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmJYCQECZEkBBQJkSgQCYlcJALgCAgUCYlgJALwCAwkAtgIBBQJoaAUCYlgFAmVKBAJoaQMJAAACBQJmTQUCY0EAAAMJAAACBQJmTQUCY0IAAQkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJoagkBAmV3AwUCZEoFAmhpBQJiVwQCaGsJALgCAgkAkQMCBQJkSgUCaGkFAmhqBAJobAkAlgMBCQDMCAIAAAkAzAgCCQCgAwEJALgCAgUCaGsFAWYFA25pbAQCaG0JAQJjcgIFAmhsBQJhUAQCZlYIBQJobQJfMQQCY3QIBQJobQJfMgkAlAoCBQNuaWwJAJQKAgUCZlYFAmN0AmRaARxnZXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJmTQJoaAQCY0EJANgEAQkBBXZhbHVlAQUCYmkEAmNCCQDYBAEJAQV2YWx1ZQEFAmJqBAJjegkA2AQBCQEFdmFsdWUBBQJiaAQCY0cJAQJiSgEFAmNBBAJjSQkBAmJKAQUCY0IEAmhuCgACYU8JAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmTQkAzAgCBQJoaAUDbmlsBQNuaWwDCQABAgUCYU8CCihJbnQsIEludCkFAmFPCQACAQkArAICCQADAQUCYU8CHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmZWCAUCaG4CXzEEAmN0CAUCaG4CXzIEAmRvCQECY3UEAgAFAmN6BQJoaAUEdGhpcwQCY1EIBQJkbwJfMQQCY1IIBQJkbwJfMgQCaG8JAGQCBQJjUQUCY1IEAmZLAwkAAAIFAmhvAAADCQAAAgUCZlYAAAAACQACAQIXYm9udXMgY2FsY3VsYXRpb24gZXJyb3IJAGsDCQBlAgUCZlYFAmhvBQFhBQJobwkAlAoCBQNuaWwJAJUKAwUCZlYFAmN0BQJmSwJkWgEJZ2V0Tm9MZXNzAgJocAJocQQCZG8JAQJmagEFAmRaBAJjUQgFAmRvAl8xBAJjUggFAmRvAl8yBAJkYwgFAmRvAl8zBAJjdwgFAmRvAl80BAJjUwgFAmRvAl81AwkAZgIFAmhwBQJjUQkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQJjUQIDIDwgCQCkAwEFAmhwAwkAZgIFAmhxBQJjUgkAAgEJAKwCAgkArAICCQCsAgICCEZhaWxlZDogCQCkAwEFAmNSAgMgPCAJAKQDAQUCaHEEAmVTCQECZUwDCQC2AgEAAAkAtgIBAAAJALYCAQAAAwkAAAIFAmVTBQJlUwQCaHIJAPwHBAUCYU0CBGJ1cm4JAMwIAgUCZGMFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY3cFAmRjBQNuaWwDCQAAAgUCaHIFAmhyBAJocwkBAmVUAwkBAS0BBQJjUQkBAS0BBQJjUgAABAJnaggFAmhzAl8xBAJlSwgFAmhzAl8yBAJnawkBAmVYAgUCZVMFAmVLAwkAAAIFAmdrBQJnawkAzggCBQJjUwUCZ2oJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBDXVuc3Rha2VBbmRHZXQBAmNzBAJodAMJAQIhPQIJAJADAQgFAmRaCHBheW1lbnRzAAAJAAIBAg1ObyBwbW50cyBleHBkBgMJAAACBQJodAUCaHQEAmh1CQECYm8ABAJnRQUCYmgEAmh2CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJodQUBQwIKV3Igc3QgYWRkcgQCZVMJAQJlTAMJALYCAQAACQC2AgEAAAkAtgIBAAAEAmh3CQD8BwQFAmh2Agd1bnN0YWtlCQDMCAIJANgEAQUCZ0UJAMwIAgUCY3MFA25pbAUDbmlsAwkAAAIFAmh3BQJodwQCZG8JAQJjdQQJANgEAQgFAmRaDXRyYW5zYWN0aW9uSWQJANgEAQUCZ0UFAmNzCAUCZFoGY2FsbGVyBAJjUQgFAmRvAl8xBAJjUggFAmRvAl8yBAJjRQkBDXBhcnNlSW50VmFsdWUBCAUCZG8CXzkEAmNTCAUCZG8DXzEwBAJoeAMDCQECYVIABgkAAAIFAmNFBQFzCQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUCY0UGAwkAAAIFAmh4BQJoeAQCaHkJAPwHBAUCYU0CBGJ1cm4JAMwIAgUCY3MFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZ0UFAmNzBQNuaWwDCQAAAgUCaHkFAmh5BAJoegkBAmVUAwkBAS0BBQJjUQkBAS0BBQJjUgAABAJnaggFAmh6Al8xBAJlSwgFAmh6Al8yBAJnawkBAmVYAgUCZVMFAmVLAwkAAAIFAmdrBQJnawkAzggCBQJjUwUCZ2oJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZFoBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmhBAmhCAmhxBAJoYgMJAQJhUgAGCQAAAgUCYmcFAXMEAmdRCQDMCAIDCQEBIQEFAmhiBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRaCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1EFAmdRBAJlUwkBAmVMAwkAtgIBAAAJALYCAQAACQC2AgEAAAQCaHcJAPwHBAUCYnECB3Vuc3Rha2UJAMwIAgkA2AQBBQJiaAkAzAgCBQJoQQUDbmlsBQNuaWwDCQAAAgUCaHcFAmh3BAJoQwkBAmN1BAkA2AQBCAUCZFoNdHJhbnNhY3Rpb25JZAkA2AQBBQJiaAUCaEEIBQJkWgZjYWxsZXIEAmNRCAUCaEMCXzEEAmNSCAUCaEMCXzIEAmNTCAUCaEMDXzEwBAJoRAkAzAgCAwkAZwIFAmNRBQJoQgYJAAIBCQC5CQIJAMwIAgIsYW1vdW50IGFzc2V0IGFtb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJoQgUDbmlsAgAJAMwIAgMJAGcCBQJjUgUCaHEGCQACAQkAuQkCCQDMCAICK3ByaWNlIGFzc2V0IGFtb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJocQUDbmlsAgAFA25pbAMJAAACBQJoRAUCaEQEAmhyCQD8BwQFAmFNAgRidXJuCQDMCAIFAmhBBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJoBQJoQQUDbmlsAwkAAAIFAmhyBQJocgQCaEUJAQJlVAMJAQEtAQUCY1EJAQEtAQUCY1IAAAQCZ2oIBQJoRQJfMQQCZUsIBQJoRQJfMgQCZ2sJAQJlWAIFAmVTBQJlSwMJAAACBQJnawUCZ2sJAM4IAgUCY1MFAmdqCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRaARV1bnN0YWtlQW5kR2V0T25lVGtuVjIDAmhBAmZNAmZOBAJnTwoAAmFPCQD8BwQFAmFNAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYU8CB0Jvb2xlYW4FAmFPCQACAQkArAICCQADAQUCYU8CHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmhiAwMJAQJhUgAGCQAAAgUCYmcFAXMGBQJnTwQCZ1EJAMwIAgMDCQEBIQEFAmhiBgkBAmdwAQUCZFoGCQECYUoBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkWghwYXltZW50cwAABgkBAmFKAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1EFAmdRBAJodQkBAmJvAAQCZ0UFAmJoBAJodgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCaHUFAUMCCldyIHN0IGFkZHIEAmh3CQD8BwQFAmh2Agd1bnN0YWtlCQDMCAIJANgEAQUCZ0UJAMwIAgUCaEEFA25pbAUDbmlsAwkAAAIFAmh3BQJodwQCaEYJAQJmTAYFAmZNBQJmTgkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZ0UFAmhBBQNuaWwIBQJkWgZjYWxsZXIIBQJkWgxvcmlnaW5DYWxsZXIIBQJkWg10cmFuc2FjdGlvbklkBAJjUwgFAmhGAl8xBAJmVwgFAmhGAl8yCQCUCgIFAmNTBQJmVwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkWgEccHV0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICaEcCaEgEAmhJCQECZnAFBQJoRwUCaEgCAAIABgQCZkYIBQJoSQJfMQQCY1MIBQJoSQJfMgQCY3QIBQJoSQJfMwQCZksIBQJoSQJfNAkAlAoCBQNuaWwJAJUKAwUCZkYFAmN0BQJmSwJkWgEhcHV0T25lVGtuVjJXaXRob3V0VGFrZUZlZVJFQURPTkxZAgJoRwJoSAQCaEoJAQJmcAUFAmhHBQJoSAIAAgAHBAJmRggFAmhKAl8xBAJjUwgFAmhKAl8yBAJjdAgFAmhKAl8zBAJmSwgFAmhKAl80CQCUCgIFA25pbAkAlQoDBQJmRgUCY3QFAmZLAmRaAQhhY3RpdmF0ZQICaEsCaEwDCQECIT0CCQClCAEIBQJkWgZjYWxsZXIJAKUIAQUCYU0JAAIBAgZkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWcABQJoSwkAzAgCCQELU3RyaW5nRW50cnkCCQECYWgABQJoTAUDbmlsAgdzdWNjZXNzAmRaAQRzZXRTAgJoTQJoeAMJAQIhPQIJAKUIAQgFAmRaBmNhbGxlcgkBAmFGAgUEdGhpcwkBAmFqAAUCZ28JAMwIAgkBC1N0cmluZ0VudHJ5AgUCaE0FAmh4BQNuaWwCZFoBBHNldEkCAmhNAmh4AwkBAiE9AgkApQgBCAUCZFoGY2FsbGVyCQECYUYCBQR0aGlzCQECYWoABQJnbwkAzAgCCQEMSW50ZWdlckVudHJ5AgUCaE0FAmh4BQNuaWwCZFoBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBAmFVAAJkWgEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQECYksJAJQKAgUDbmlsCQECYkoBBQJiSwJkWgEZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQMCY2QCY2UCY2kEAmhOCQECY2gDBQJjZAUCY2UFAmNpCQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCaE4AAAkAzAgCCQCmAwEJAJEDAgUCaE4AAQkAzAgCCQCmAwEJAJEDAgUCaE4AAgUDbmlsAmRaARZmcm9tWDE4V3JhcHBlclJFQURPTkxZAgFMAmhPCQCUCgIFA25pbAkBAUsCCQCnAwEFAUwFAmhPAmRaARR0b1gxOFdyYXBwZXJSRUFET05MWQIBSQFKCQCUCgIFA25pbAkApgMBCQEBSAIFAUkFAUoCZFoBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQICYk0CYk4JAJQKAgUDbmlsCQCmAwEJAQJiTAIJAKcDAQUCYk0JAKcDAQUCYk4CZFoBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQJjdgJiUwJjVQJjVgJjVwJjWAJoUAJjWQJjWgkAlAoCBQNuaWwJAQJjVA0FAmN2BQJiUwUCY1UFAmNWBQJjVwUCY1gFAmhQBQJjWQUCY1oGBwAAAgACZFoBI2VzdGltYXRlR2V0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZBAJjdgJoUQJjeAJoUAQCZG8JAQJjdQQFAmN2BQJoUQUCY3gJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAmhQCQCUCgIFA25pbAkAnAoKCAUCZG8CXzEIBQJkbwJfMggFAmRvAl8zCAUCZG8CXzQIBQJkbwJfNQgFAmRvAl82CAUCZG8CXzcJAKYDAQgFAmRvAl84CAUCZG8CXzkIBQJkbwNfMTABAmhSAQJoUwAEAmhUBAJnbQkBAmdsAAMJAAECBQJnbQIKQnl0ZVZlY3RvcgQCZ3EFAmdtBQJncQMJAAECBQJnbQIEVW5pdAgFAmhSD3NlbmRlclB1YmxpY0tleQkAAgECC01hdGNoIGVycm9yBAJnbQUCaFIDCQABAgUCZ20CBU9yZGVyBAJmYQUCZ20EAmhVCQECYVMABAJoVgkBAmVaAQUCZmEEAmhXCQD0AwMIBQJmYQlib2R5Qnl0ZXMJAJEDAggFAmZhBnByb29mcwAACAUCZmEPc2VuZGVyUHVibGljS2V5BAJoWAkA9AMDCAUCZmEJYm9keUJ5dGVzCQCRAwIIBQJmYQZwcm9vZnMAAQUCaFUDAwMFAmhWBQJoVwcFAmhYBwYJAQJhQgMFAmhWBQJoVwUCaFgDCQABAgUCZ20CFFNldFNjcmlwdFRyYW5zYWN0aW9uBAJkTQUCZ20EAmhZCQD2AwEJAQV2YWx1ZQEIBQJkTQZzY3JpcHQEAmhaCQDbBAEJAQV2YWx1ZQEJAJ0IAgUCYU0JAQJhegAEAmlhCQDxBwEFBHRoaXMDAwkAAAIFAmhaBQJoWQkBAiE9AgUCaWEFAmhZBwYJAPQDAwgFAmhSCWJvZHlCeXRlcwkAkQMCCAUCaFIGcHJvb2ZzAAAFAmhUCQD0AwMIBQJoUglib2R5Qnl0ZXMJAJEDAggFAmhSBnByb29mcwAABQJoVLF0X1g=",
    "chainId": 84,
    "height": 2397542,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FM6Xy64oUtu2HMfXWSve5kC36ZarRBXnB2NmgNf7XDvq
Next: DSfJeiJ4cezn81aJx53XvgGosMnFZ3EStgZ8phM97dEN

Diff: 

OldNewDifferences
1414 let big1 = toBigInt(1)
1515 
1616 let big2 = toBigInt(2)
17+
18+let big3 = toBigInt(3)
19+
20+let big4 = toBigInt(4)
1721 
1822 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
1923 
6973 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
7074 
7175 
76+func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
77+
78+
7279 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7380 
7481 
115122 func ada () = "%s__addonAddr"
116123 
117124 
125+let keyFee = "%s__fee"
126+
127+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
128+
129+let keyDLp = makeString(["%s", "dLp"], SEP)
130+
131+let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
132+
133+let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
134+
135+let dLpRefreshDelayDefault = 1
136+
137+let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
138+
118139 func fcfg () = "%s__factoryConfig"
119140 
120141 
139160 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140161 
141162 
142-func str (val) = match val {
143-    case valStr: String => 
144-        valStr
145-    case _ => 
146-        throw("fail cast to String")
147-}
148-
149-
150163 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151164 
152165 
154167 
155168 
156169 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
170+
171+
172+func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
157173 
158174 
159175 let fca = addressFromStringValue(strf(this, fc()))
201217     else toBase58String(value(input))
202218 
203219 
204-func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
220+func parsePoolConfig (poolConfig) = $Tuple9(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]), fromBase58String(poolConfig[idxIAmtAsId]), fromBase58String(poolConfig[idxIPriceAsId]))
205221 
206222 
207223 let poolConfigParsed = parsePoolConfig(gpc())
208224 
209-let $t069097095 = poolConfigParsed
225+let $t075447773 = poolConfigParsed
210226 
211-let cfgPoolAddress = $t069097095._1
227+let cfgPoolAddress = $t075447773._1
212228 
213-let cfgPoolStatus = $t069097095._2
229+let cfgPoolStatus = $t075447773._2
214230 
215-let cfgLpAssetId = $t069097095._3
231+let cfgLpAssetId = $t075447773._3
216232 
217-let cfgAmountAssetId = $t069097095._4
233+let cfgAmountAssetId = $t075447773._4
218234 
219-let cfgPriceAssetId = $t069097095._5
235+let cfgPriceAssetId = $t075447773._5
220236 
221-let cfgAmountAssetDecimals = $t069097095._6
237+let cfgAmountAssetDecimals = $t075447773._6
222238 
223-let cfgPriceAssetDecimals = $t069097095._7
239+let cfgPriceAssetDecimals = $t075447773._7
240+
241+let cfgInAmountAssedId = $t075447773._8
242+
243+let cfgInPriceAssetId = $t075447773._9
224244 
225245 func gfc () = split(strf(fca, fcfg()), SEP)
226246 
247267 
248268 
249269 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
270+
271+
272+func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
250273 
251274 
252275 func vad (A1,A2,slippage) = {
277300 
278301 
279302 func calcPrices (amAmt,prAmt,lpAmt) = {
280-    let cfg = gpc()
281-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
303+    let amtAsDcm = cfgAmountAssetDecimals
304+    let prAsDcm = cfgPriceAssetDecimals
283305     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
284306     let amAmtX18 = t1(amAmt, amtAsDcm)
285307     let prAmtX18 = t1(prAmt, prAsDcm)
305327 
306328 
307329 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
308-    let cfg = gpc()
309-    let lpId = cfg[idxLPAsId]
310-    let amId = cfg[idxAmAsId]
311-    let prId = cfg[idxPrAsId]
312-    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
313-    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
314-    let sts = cfg[idxPoolSt]
315-    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
316-    if ((lpId != pmtAssetId))
330+    let lpId = cfgLpAssetId
331+    let amId = toBase58String(value(cfgAmountAssetId))
332+    let prId = toBase58String(value(cfgPriceAssetId))
333+    let amDcm = cfgAmountAssetDecimals
334+    let prDcm = cfgPriceAssetDecimals
335+    let sts = toString(cfgPoolStatus)
336+    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
337+    if ((toBase58String(lpId) != pmtAssetId))
317338         then throw("Wrong pmt asset")
318339         else {
319340             let amBalance = getAccBalance(amId)
326347             let lpEmissX18 = t1(lpEmiss, scale8)
327348             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
328349             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
329-            let outAmAmt = f1(outAmAmtX18, amDcm)
330-            let outPrAmt = f1(outPrAmtX18, prDcm)
350+            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
351+            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
331352             let state = if ((txId58 == ""))
332353                 then nil
333354                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
341362 
342363 
343364 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
344-    let cfg = gpc()
345-    let lpId = fromBase58String(cfg[idxLPAsId])
346-    let amIdStr = cfg[idxAmAsId]
347-    let prIdStr = cfg[idxPrAsId]
348-    let inAmIdStr = cfg[idxIAmtAsId]
349-    let inPrIdStr = cfg[idxIPriceAsId]
350-    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
351-    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
352-    let sts = cfg[idxPoolSt]
365+    let lpId = cfgLpAssetId
366+    let amIdStr = toBase58String(value(cfgAmountAssetId))
367+    let prIdStr = toBase58String(value(cfgPriceAssetId))
368+    let inAmIdStr = cfgInAmountAssedId
369+    let inPrIdStr = cfgInPriceAssetId
370+    let amtDcm = cfgAmountAssetDecimals
371+    let priceDcm = cfgPriceAssetDecimals
372+    let sts = toString(cfgPoolStatus)
353373     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
354374     let amBalance = if (isEval)
355375         then getAccBalance(amIdStr)
393413                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
394414                 else {
395415                     let lpEmissionX18 = t1(lpEm, scale8)
396-                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
416+                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, FLOOR), scale18, FLOOR)
417+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), FLOOR)
398418                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
399419                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
400420                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
401421                     let expAmtAssetAmtX18 = expectedAmts._1
402422                     let expPriceAssetAmtX18 = expectedAmts._2
403-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404-                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
423+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
424+                    $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
405425                     }
406426             }
407427     let calcLpAmt = r._1
417437                 else calcLpAmt
418438             let amDiff = (inAmAmt - calcAmAssetPmt)
419439             let prDiff = (inPrAmt - calcPrAssetPmt)
420-            let $t01756217907 = if (if (isOneAsset)
440+            let $t01841718762 = if (if (isOneAsset)
421441                 then (pmtId == amIdStr)
422442                 else false)
423443                 then $Tuple2(pmtAmt, 0)
426446                     else false)
427447                     then $Tuple2(0, pmtAmt)
428448                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
429-            let writeAmAmt = $t01756217907._1
430-            let writePrAmt = $t01756217907._2
449+            let writeAmAmt = $t01841718762._1
450+            let writePrAmt = $t01841718762._2
431451             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
432452             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
433453             }
434454     }
435455 
436456 
437-func moa (order) = {
438-    let cfg = gpc()
439-    let amtAsId = cfg[idxAmAsId]
440-    let prAsId = cfg[idxPrAsId]
441-    let sts = parseIntValue(cfg[idxPoolSt])
442-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
443-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
444-    let accAmtAsBalance = getAccBalance(amtAsId)
445-    let accPrAsBalance = getAccBalance(prAsId)
446-    let curPriceX18 = if ((order.orderType == Buy))
447-        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
448-        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
449-    let curPrice = f1(curPriceX18, scale8)
457+func getD (xp) = {
458+    let xp0 = xp[0]
459+    let xp1 = xp[1]
460+    let s = (xp0 + xp1)
461+    if ((s == big0))
462+        then big0
463+        else {
464+            let a = parseIntValue(A)
465+            let ann = (a * 2)
466+            let p = fraction(xp0, xp1, big1)
467+            let xp0_xp1_n_n = fraction(p, big4, big1)
468+            let ann_s = fraction(toBigInt(ann), s, big1)
469+            let ann_1 = toBigInt((ann - 1))
470+            func calcDNext (d) =             {
471+                let dd = fraction(d, d, big1)
472+                let ddd = fraction(dd, d, big1)
473+                let dp = fraction(ddd, big1, xp0_xp1_n_n)
474+                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
475+                }
476+
477+            func calc (acc,i) =             if (acc._2)
478+                then acc
479+                else {
480+                    let d = acc._1
481+                    let dNext = calcDNext(d)
482+                    let dDiffRaw = toInt((dNext - value(d)))
483+                    let dDiff = if ((0 > dDiffRaw))
484+                        then -(dDiffRaw)
485+                        else dDiffRaw
486+                    if ((1 >= dDiff))
487+                        then $Tuple2(dNext, true)
488+                        else $Tuple2(dNext, false)
489+                    }
490+
491+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
492+            let $t02069020738 = {
493+                let $l = arr
494+                let $s = size($l)
495+                let $acc0 = $Tuple2(s, false)
496+                func $f0_1 ($a,$i) =                 if (($i >= $s))
497+                    then $a
498+                    else calc($a, $l[$i])
499+
500+                func $f0_2 ($a,$i) =                 if (($i >= $s))
501+                    then $a
502+                    else throw("List size exceeds 15")
503+
504+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
505+                }
506+            let d = $t02069020738._1
507+            let found = $t02069020738._2
508+            if (found)
509+                then d
510+                else throw(("D calculation error, D = " + toString(d)))
511+            }
512+    }
513+
514+
515+func getDOld (xp) = {
516+    let n = big2
517+    let xp0 = xp[0]
518+    let xp1 = xp[1]
519+    let aPrecision = parseBigIntValue(Amult)
520+    let a = (parseBigIntValue(A) * aPrecision)
521+    let s = (xp0 + xp1)
522+    if ((s == big0))
523+        then big0
524+        else {
525+            let ann = (a * n)
526+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
527+            let ann_s_aPrecision = ((ann * s) / aPrecision)
528+            let ann_aPrecision = (ann - aPrecision)
529+            let n1 = (n + big1)
530+            func calc (acc,cur) =             {
531+                let $t02136721387 = acc
532+                let d = $t02136721387._1
533+                let found = $t02136721387._2
534+                if ((found != unit))
535+                    then acc
536+                    else {
537+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
538+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
539+                        let dDiff = absBigInt((dNext - value(d)))
540+                        if ((big1 >= dDiff))
541+                            then $Tuple2(dNext, cur)
542+                            else $Tuple2(dNext, unit)
543+                        }
544+                }
545+
546+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
547+            let $t02180821855 = {
548+                let $l = arr
549+                let $s = size($l)
550+                let $acc0 = $Tuple2(s, unit)
551+                func $f0_1 ($a,$i) =                 if (($i >= $s))
552+                    then $a
553+                    else calc($a, $l[$i])
554+
555+                func $f0_2 ($a,$i) =                 if (($i >= $s))
556+                    then $a
557+                    else throw("List size exceeds 15")
558+
559+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
560+                }
561+            let d = $t02180821855._1
562+            let found = $t02180821855._2
563+            if ((found != unit))
564+                then d
565+                else throw(("D calculation error, D = " + toString(d)))
566+            }
567+    }
568+
569+
570+func getYD (xp,i,D) = {
571+    let n = big2
572+    let x = xp[if ((i == 0))
573+        then 1
574+        else 0]
575+    let aPrecision = parseBigIntValue(Amult)
576+    let a = (parseBigIntValue(A) * aPrecision)
577+    let s = x
578+    let ann = (a * n)
579+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
580+    let b = ((s + ((D * aPrecision) / ann)) - D)
581+    func calc (acc,cur) =     {
582+        let $t02235522375 = acc
583+        let y = $t02235522375._1
584+        let found = $t02235522375._2
585+        if ((found != unit))
586+            then acc
587+            else {
588+                let yNext = (((y * y) + c) / ((big2 * y) + b))
589+                let yDiff = absBigInt((yNext - value(y)))
590+                if ((big1 >= yDiff))
591+                    then $Tuple2(yNext, cur)
592+                    else $Tuple2(yNext, unit)
593+                }
594+        }
595+
596+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
597+    let $t02268222729 = {
598+        let $l = arr
599+        let $s = size($l)
600+        let $acc0 = $Tuple2(D, unit)
601+        func $f0_1 ($a,$i) =         if (($i >= $s))
602+            then $a
603+            else calc($a, $l[$i])
604+
605+        func $f0_2 ($a,$i) =         if (($i >= $s))
606+            then $a
607+            else throw("List size exceeds 15")
608+
609+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
610+        }
611+    let y = $t02268222729._1
612+    let found = $t02268222729._2
613+    if ((found != unit))
614+        then y
615+        else throw(("Y calculation error, Y = " + toString(y)))
616+    }
617+
618+
619+func calcDLp (amountBalance,priceBalance,lpEmission) = {
620+    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
621+    if ((lpEmission == big0))
622+        then big0
623+        else updatedDLp
624+    }
625+
626+
627+func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
628+    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
629+    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
630+    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
631+    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
632+    currentDLp
633+    }
634+
635+
636+func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
637+    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
638+    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
639+    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
640+    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
641+    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
642+    $Tuple2(actions, updatedDLp)
643+    }
644+
645+
646+func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
647+    then true
648+    else throwErr("updated DLp lower than current DLp")
649+
650+
651+func validateMatcherOrderAllowed (order) = {
652+    let amountAssetAmount = order.amount
653+    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
654+    let $t02466824880 = if ((order.orderType == Buy))
655+        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
656+        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
657+    let amountAssetBalanceDelta = $t02466824880._1
658+    let priceAssetBalanceDelta = $t02466824880._2
450659     if (if (if (igs())
451660         then true
452-        else (sts == PoolMatcherDis))
661+        else (cfgPoolStatus == PoolMatcherDis))
453662         then true
454-        else (sts == PoolShutdown))
663+        else (cfgPoolStatus == PoolShutdown))
455664         then throw("Admin blocked")
456-        else {
457-            let orAmtAsset = order.assetPair.amountAsset
458-            let orAmtAsStr = if ((orAmtAsset == unit))
459-                then "WAVES"
460-                else toBase58String(value(orAmtAsset))
461-            let orPrAsset = order.assetPair.priceAsset
462-            let orPrAsStr = if ((orPrAsset == unit))
463-                then "WAVES"
464-                else toBase58String(value(orPrAsset))
465-            if (if ((orAmtAsStr != amtAsId))
466-                then true
467-                else (orPrAsStr != prAsId))
468-                then throw("Wr assets")
469-                else {
470-                    let orderPrice = order.price
471-                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
472-                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
473-                    let isOrderPriceValid = if ((order.orderType == Buy))
474-                        then (curPrice >= castOrderPrice)
475-                        else (castOrderPrice >= curPrice)
476-                    true
477-                    }
478-            }
665+        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
666+            then true
667+            else (order.assetPair.priceAsset != cfgPriceAssetId))
668+            then throw("Wr assets")
669+            else {
670+                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
671+                let $t02521025310 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
672+                let unusedActions = $t02521025310._1
673+                let dLpNew = $t02521025310._2
674+                let isOrderValid = (dLpNew >= dLp)
675+                isOrderValid
676+                }
479677     }
480678 
481679 
511709     }
512710 
513711 
514-func getD (xp) = {
515-    let n = big2
516-    let xp0 = xp[0]
517-    let xp1 = xp[1]
518-    let aPrecision = parseBigIntValue(Amult)
519-    let a = (parseBigIntValue(A) * aPrecision)
520-    let s = (xp0 + xp1)
521-    if ((s == big0))
522-        then big0
523-        else {
524-            let ann = (a * n)
525-            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
526-            let ann_s_aPrecision = ((ann * s) / aPrecision)
527-            let ann_aPrecision = (ann - aPrecision)
528-            let n1 = (n + big1)
529-            func calc (acc,cur) =             {
530-                let $t02245922479 = acc
531-                let d = $t02245922479._1
532-                let found = $t02245922479._2
533-                if ((found != unit))
534-                    then acc
535-                    else {
536-                        let dp = (((d * d) * d) / xp0_xp1_n_n)
537-                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
538-                        let dDiff = absBigInt((dNext - value(d)))
539-                        if ((big1 >= dDiff))
540-                            then $Tuple2(dNext, cur)
541-                            else $Tuple2(dNext, unit)
542-                        }
543-                }
544-
545-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
546-            let $t02290022947 = {
547-                let $l = arr
548-                let $s = size($l)
549-                let $acc0 = $Tuple2(s, unit)
550-                func $f0_1 ($a,$i) =                 if (($i >= $s))
551-                    then $a
552-                    else calc($a, $l[$i])
553-
554-                func $f0_2 ($a,$i) =                 if (($i >= $s))
555-                    then $a
556-                    else throw("List size exceeds 15")
557-
558-                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
559-                }
560-            let d = $t02290022947._1
561-            let found = $t02290022947._2
562-            if ((found != unit))
563-                then d
564-                else throw(("D calculation error, D = " + toString(d)))
565-            }
566-    }
567-
568-
569-func getYD (xp,i,D) = {
570-    let n = big2
571-    let x = xp[if ((i == 0))
572-        then 1
573-        else 0]
574-    let aPrecision = parseBigIntValue(Amult)
575-    let a = (parseBigIntValue(A) * aPrecision)
576-    let s = x
577-    let ann = (a * n)
578-    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
579-    let b = ((s + ((D * aPrecision) / ann)) - D)
580-    func calc (acc,cur) =     {
581-        let $t02344723467 = acc
582-        let y = $t02344723467._1
583-        let found = $t02344723467._2
584-        if ((found != unit))
585-            then acc
586-            else {
587-                let yNext = (((y * y) + c) / ((big2 * y) + b))
588-                let yDiff = absBigInt((yNext - value(y)))
589-                if ((big1 >= yDiff))
590-                    then $Tuple2(yNext, cur)
591-                    else $Tuple2(yNext, unit)
592-                }
593-        }
594-
595-    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
596-    let $t02377423821 = {
597-        let $l = arr
598-        let $s = size($l)
599-        let $acc0 = $Tuple2(D, unit)
600-        func $f0_1 ($a,$i) =         if (($i >= $s))
601-            then $a
602-            else calc($a, $l[$i])
603-
604-        func $f0_2 ($a,$i) =         if (($i >= $s))
605-            then $a
606-            else throw("List size exceeds 15")
607-
608-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
609-        }
610-    let y = $t02377423821._1
611-    let found = $t02377423821._2
612-    if ((found != unit))
613-        then y
614-        else throw(("Y calculation error, Y = " + toString(y)))
615-    }
616-
617-
618712 func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
619-    let poolConfig = gpc()
620-    let amId = poolConfig[idxAmAsId]
621-    let prId = poolConfig[idxPrAsId]
622-    let lpId = poolConfig[idxLPAsId]
623-    let amtDcm = parseIntValue(poolConfig[idxAmtAsDcm])
624-    let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
625-    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
713+    let amId = toBase58String(value(cfgAmountAssetId))
714+    let prId = toBase58String(value(cfgPriceAssetId))
715+    let lpId = cfgLpAssetId
716+    let amtDcm = cfgAmountAssetDecimals
717+    let priceDcm = cfgPriceAssetDecimals
718+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
626719     let chechEmission = if ((lpAssetEmission > big0))
627720         then true
628721         else throw("initial deposit requires all coins")
630723         then {
631724             let amBalance = getAccBalance(amId)
632725             let prBalance = getAccBalance(prId)
633-            let $t02460425066 = if ((txId == ""))
726+            let $t02757628038 = if ((txId == ""))
634727                 then $Tuple2(amBalance, prBalance)
635728                 else if ((pmtAssetId == amId))
636729                     then if ((pmtAmtRaw > amBalance))
641734                             then throw("invalid payment amount")
642735                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
643736                         else throw("wrong pmtAssetId")
644-            let amBalanceOld = $t02460425066._1
645-            let prBalanceOld = $t02460425066._2
646-            let $t02507225248 = if ((pmtAssetId == amId))
737+            let amBalanceOld = $t02757628038._1
738+            let prBalanceOld = $t02757628038._2
739+            let $t02804428220 = if ((pmtAssetId == amId))
647740                 then $Tuple2(pmtAmtRaw, 0)
648741                 else if ((pmtAssetId == prId))
649742                     then $Tuple2(0, pmtAmtRaw)
650743                     else throw("invalid payment")
651-            let amAmountRaw = $t02507225248._1
652-            let prAmountRaw = $t02507225248._2
653-            let $t02525225506 = if (withTakeFee)
744+            let amAmountRaw = $t02804428220._1
745+            let prAmountRaw = $t02804428220._2
746+            let $t02822428478 = if (withTakeFee)
654747                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
655748                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
656-            let amAmount = $t02525225506._1
657-            let prAmount = $t02525225506._2
658-            let feeAmount = $t02525225506._3
749+            let amAmount = $t02822428478._1
750+            let prAmount = $t02822428478._2
751+            let feeAmount = $t02822428478._3
659752             let amBalanceNew = (amBalanceOld + amAmount)
660753             let prBalanceNew = (prBalanceOld + prAmount)
661754             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
665758                 else throw()
666759             if ((checkD == checkD))
667760                 then {
668-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
761+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
669762                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
670763                     let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
671764                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
682775 
683776 
684777 func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = {
685-    let poolConfig = gpc()
686-    let lpId = poolConfig[idxLPAsId]
687-    let amId = poolConfig[idxAmAsId]
688-    let prId = poolConfig[idxPrAsId]
689-    let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
690-    let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
691-    let poolStatus = poolConfig[idxPoolSt]
778+    let lpId = toBase58String(value(cfgLpAssetId))
779+    let amId = toBase58String(value(cfgAmountAssetId))
780+    let prId = toBase58String(value(cfgPriceAssetId))
781+    let amDecimals = cfgAmountAssetDecimals
782+    let prDecimals = cfgPriceAssetDecimals
783+    let poolStatus = cfgPoolStatus
692784     let userAddress = if ((caller == restContract))
693785         then originCaller
694786         else caller
695787     let pmt = value(payments[0])
696788     let pmtAssetId = value(pmt.assetId)
697789     let pmtAmt = pmt.amount
698-    let txId58 = toBase58String(transactionId)
699-    if ((lpId != toBase58String(pmtAssetId)))
700-        then throw("Wrong LP")
701-        else {
702-            let amBalance = getAccBalance(amId)
703-            let prBalance = getAccBalance(prId)
704-            let $t02750827619 = {
705-                let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
706-                if ($isInstanceOf(@, "(Int, Int)"))
707-                    then @
708-                    else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
709-                }
710-            if (($t02750827619 == $t02750827619))
711-                then {
712-                    let feeAmount = $t02750827619._2
713-                    let totalGet = $t02750827619._1
714-                    let totalAmount = if (if ((minOutAmount > 0))
715-                        then (minOutAmount > totalGet)
716-                        else false)
717-                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
718-                        else totalGet
719-                    let $t02780928116 = if ((outAssetId == amId))
720-                        then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
721-                        else if ((outAssetId == prId))
722-                            then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
723-                            else throw("invalid out asset id")
724-                    let outAm = $t02780928116._1
725-                    let outPr = $t02780928116._2
726-                    let amBalanceNew = $t02780928116._3
727-                    let prBalanceNew = $t02780928116._4
728-                    let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
729-                    let curPr = f1(curPrX18, scale8)
730-                    let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
731-                        then unit
732-                        else fromBase58String(outAssetId)
733-                    let sendFeeToMatcher = if ((feeAmount > 0))
734-                        then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
735-                        else nil
736-                    let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
737-                    if ((state == state))
790+    let currentDLp = calcCurrentDLp(big0, big0, big0)
791+    if ((currentDLp == currentDLp))
792+        then {
793+            let txId58 = toBase58String(transactionId)
794+            if ((lpId != toBase58String(pmtAssetId)))
795+                then throw("Wrong LP")
796+                else {
797+                    let amBalance = getAccBalance(amId)
798+                    let prBalance = getAccBalance(prId)
799+                    let $t03052830639 = {
800+                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
801+                        if ($isInstanceOf(@, "(Int, Int)"))
802+                            then @
803+                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
804+                        }
805+                    if (($t03052830639 == $t03052830639))
738806                         then {
739-                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740-                            if ((burn == burn))
741-                                then $Tuple2(state, totalAmount)
807+                            let feeAmount = $t03052830639._2
808+                            let totalGet = $t03052830639._1
809+                            let totalAmount = if (if ((minOutAmount > 0))
810+                                then (minOutAmount > totalGet)
811+                                else false)
812+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
813+                                else totalGet
814+                            let $t03082931136 = if ((outAssetId == amId))
815+                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
816+                                else if ((outAssetId == prId))
817+                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
818+                                    else throw("invalid out asset id")
819+                            let outAm = $t03082931136._1
820+                            let outPr = $t03082931136._2
821+                            let amBalanceNew = $t03082931136._3
822+                            let prBalanceNew = $t03082931136._4
823+                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
824+                            let curPr = f1(curPrX18, scale8)
825+                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
826+                                then unit
827+                                else fromBase58String(outAssetId)
828+                            let sendFeeToMatcher = if ((feeAmount > 0))
829+                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
830+                                else nil
831+                            let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
832+                            if ((state == state))
833+                                then {
834+                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
835+                                    if ((burn == burn))
836+                                        then {
837+                                            let $t03192132271 = {
838+                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
839+                                                    then 0
840+                                                    else feeAmount
841+                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
842+                                                    then true
843+                                                    else false
844+                                                if (outInAmountAsset)
845+                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
846+                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
847+                                                }
848+                                            let amountAssetBalanceDelta = $t03192132271._1
849+                                            let priceAssetBalanceDelta = $t03192132271._2
850+                                            let $t03227432382 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
851+                                            let refreshDLpActions = $t03227432382._1
852+                                            let updatedDLp = $t03227432382._2
853+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
854+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
855+                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
856+                                                else throw("Strict value is not equal to itself.")
857+                                            }
858+                                        else throw("Strict value is not equal to itself.")
859+                                    }
742860                                 else throw("Strict value is not equal to itself.")
743861                             }
744862                         else throw("Strict value is not equal to itself.")
745863                     }
746-                else throw("Strict value is not equal to itself.")
747864             }
865+        else throw("Strict value is not equal to itself.")
748866     }
749867 
750868 
849967         else if ((size(i.payments) != 2))
850968             then throw("2 pmnts expd")
851969             else {
852-                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
853-                let emitLpAmt = e._2
854-                let lpAssetId = e._7
855-                let state = e._9
856-                let amDiff = e._10
857-                let prDiff = e._11
858-                let amId = e._12
859-                let prId = e._13
860-                let r = invoke(fca, "emit", [emitLpAmt], nil)
861-                if ((r == r))
970+                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
971+                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
972+                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
973+                if ((amountAssetBalance == amountAssetBalance))
862974                     then {
863-                        let el =                         match r {
864-                            case legacy: Address => 
865-                                invoke(legacy, "emit", [emitLpAmt], nil)
866-                            case _ => 
867-                                unit
868-                        }
869-                        if ((el == el))
975+                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
976+                        if ((priceAssetBalance == priceAssetBalance))
870977                             then {
871-                                let sa = if ((amDiff > 0))
872-                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873-                                    else nil
874-                                if ((sa == sa))
978+                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
979+                                if ((lpAssetEmission == lpAssetEmission))
875980                                     then {
876-                                        let sp = if ((prDiff > 0))
877-                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878-                                            else nil
879-                                        if ((sp == sp))
981+                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
982+                                        if ((currentDLp == currentDLp))
880983                                             then {
881-                                                let lpTrnsfr = if (autoStake)
984+                                                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
985+                                                let emitLpAmt = e._2
986+                                                let lpAssetId = e._7
987+                                                let state = e._9
988+                                                let amDiff = e._10
989+                                                let prDiff = e._11
990+                                                let amId = e._12
991+                                                let prId = e._13
992+                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
993+                                                if ((r == r))
882994                                                     then {
883-                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884-                                                        if ((ss == ss))
885-                                                            then nil
995+                                                        let el =                                                         match r {
996+                                                            case legacy: Address => 
997+                                                                invoke(legacy, "emit", [emitLpAmt], nil)
998+                                                            case _ => 
999+                                                                unit
1000+                                                        }
1001+                                                        if ((el == el))
1002+                                                            then {
1003+                                                                let sa = if ((amDiff > 0))
1004+                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1005+                                                                    else nil
1006+                                                                if ((sa == sa))
1007+                                                                    then {
1008+                                                                        let sp = if ((prDiff > 0))
1009+                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1010+                                                                            else nil
1011+                                                                        if ((sp == sp))
1012+                                                                            then {
1013+                                                                                let lpTrnsfr = if (autoStake)
1014+                                                                                    then {
1015+                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1016+                                                                                        if ((ss == ss))
1017+                                                                                            then nil
1018+                                                                                            else throw("Strict value is not equal to itself.")
1019+                                                                                        }
1020+                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1021+                                                                                let $t03653136673 = refreshDLpInternal(0, 0, 0)
1022+                                                                                let refreshDLpActions = $t03653136673._1
1023+                                                                                let updatedDLp = $t03653136673._2
1024+                                                                                let check = if ((updatedDLp >= currentDLp))
1025+                                                                                    then true
1026+                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1027+                                                                                if ((check == check))
1028+                                                                                    then {
1029+                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1030+                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1031+                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1032+                                                                                            else throw("Strict value is not equal to itself.")
1033+                                                                                        }
1034+                                                                                    else throw("Strict value is not equal to itself.")
1035+                                                                                }
1036+                                                                            else throw("Strict value is not equal to itself.")
1037+                                                                        }
1038+                                                                    else throw("Strict value is not equal to itself.")
1039+                                                                }
8861040                                                             else throw("Strict value is not equal to itself.")
8871041                                                         }
888-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889-                                                (state ++ lpTrnsfr)
1042+                                                    else throw("Strict value is not equal to itself.")
8901043                                                 }
8911044                                             else throw("Strict value is not equal to itself.")
8921045                                         }
9241077         else throwErr("exactly 1 payment are expected")]
9251078     if ((checks == checks))
9261079         then {
927-            let poolConfig = gpc()
928-            let amId = poolConfig[idxAmAsId]
929-            let prId = poolConfig[idxPrAsId]
930-            let lpId = fromBase58String(poolConfig[idxLPAsId])
931-            let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
932-            let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
1080+            let amId = toBase58String(value(cfgAmountAssetId))
1081+            let prId = toBase58String(value(cfgPriceAssetId))
1082+            let lpId = cfgLpAssetId
1083+            let amDecimals = cfgAmountAssetDecimals
1084+            let prDecimals = cfgPriceAssetDecimals
9331085             let userAddress = if ((i.caller == this))
9341086                 then i.originCaller
9351087                 else i.caller
9361088             let pmt = value(i.payments[0])
9371089             let pmtAssetId = toBase58String(value(pmt.assetId))
9381090             let pmtAmt = pmt.amount
939-            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940-            if (($t03347833636 == $t03347833636))
1091+            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1092+                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1093+                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1094+            if ((currentDLp == currentDLp))
9411095                 then {
942-                    let feeAmount = $t03347833636._3
943-                    let state = $t03347833636._2
944-                    let estimLP = $t03347833636._1
945-                    let emitLpAmt = if (if ((minOutAmount > 0))
946-                        then (minOutAmount > estimLP)
947-                        else false)
948-                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
949-                        else estimLP
950-                    let e = invoke(fca, "emit", [emitLpAmt], nil)
951-                    if ((e == e))
1096+                    let $t03864538803 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1097+                    if (($t03864538803 == $t03864538803))
9521098                         then {
953-                            let el =                             match e {
954-                                case legacy: Address => 
955-                                    invoke(legacy, "emit", [emitLpAmt], nil)
956-                                case _ => 
957-                                    unit
958-                            }
959-                            if ((el == el))
1099+                            let feeAmount = $t03864538803._3
1100+                            let state = $t03864538803._2
1101+                            let estimLP = $t03864538803._1
1102+                            let emitLpAmt = if (if ((minOutAmount > 0))
1103+                                then (minOutAmount > estimLP)
1104+                                else false)
1105+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1106+                                else estimLP
1107+                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1108+                            if ((e == e))
9601109                                 then {
961-                                    let lpTrnsfr = if (autoStake)
1110+                                    let el =                                     match e {
1111+                                        case legacy: Address => 
1112+                                            invoke(legacy, "emit", [emitLpAmt], nil)
1113+                                        case _ => 
1114+                                            unit
1115+                                    }
1116+                                    if ((el == el))
9621117                                         then {
963-                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964-                                            if ((ss == ss))
965-                                                then nil
1118+                                            let lpTrnsfr = if (autoStake)
1119+                                                then {
1120+                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1121+                                                    if ((ss == ss))
1122+                                                        then nil
1123+                                                        else throw("Strict value is not equal to itself.")
1124+                                                    }
1125+                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1126+                                            let sendFeeToMatcher = if ((feeAmount > 0))
1127+                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1128+                                                else nil
1129+                                            let $t03961839967 = if ((this == feeCollectorAddress))
1130+                                                then $Tuple2(0, 0)
1131+                                                else {
1132+                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1133+                                                        then true
1134+                                                        else false
1135+                                                    if (paymentInAmountAsset)
1136+                                                        then $Tuple2(-(feeAmount), 0)
1137+                                                        else $Tuple2(0, -(feeAmount))
1138+                                                    }
1139+                                            let amountAssetBalanceDelta = $t03961839967._1
1140+                                            let priceAssetBalanceDelta = $t03961839967._2
1141+                                            let $t03997040078 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1142+                                            let refreshDLpActions = $t03997040078._1
1143+                                            let updatedDLp = $t03997040078._2
1144+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1145+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1146+                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
9661147                                                 else throw("Strict value is not equal to itself.")
9671148                                             }
968-                                        else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
969-                                    let sendFeeToMatcher = if ((feeAmount > 0))
970-                                        then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
971-                                        else nil
972-                                    $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
1149+                                        else throw("Strict value is not equal to itself.")
9731150                                     }
9741151                                 else throw("Strict value is not equal to itself.")
9751152                             }
9891166         then throw("2 pmnts expd")
9901167         else {
9911168             let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, true, 0, "")
992-            estPut._9
1169+            let state = estPut._9
1170+            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1171+            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1172+            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1173+            if ((currentDLp == currentDLp))
1174+                then {
1175+                    let $t04110841173 = refreshDLpInternal(0, 0, 0)
1176+                    let refreshDLpActions = $t04110841173._1
1177+                    let updatedDLp = $t04110841173._2
1178+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1179+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1180+                        then (state ++ refreshDLpActions)
1181+                        else throw("Strict value is not equal to itself.")
1182+                    }
1183+                else throw("Strict value is not equal to itself.")
9931184             }
9941185 
9951186 
9961187 
9971188 @Callable(i)
9981189 func get () = {
999-    let r = cg(i)
1000-    let outAmtAmt = r._1
1001-    let outPrAmt = r._2
1002-    let pmtAmt = r._3
1003-    let pmtAssetId = r._4
1004-    let state = r._5
1005-    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1006-    if ((b == b))
1007-        then state
1190+    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1191+    if ((currentDLp == currentDLp))
1192+        then {
1193+            let r = cg(i)
1194+            let outAmtAmt = r._1
1195+            let outPrAmt = r._2
1196+            let pmtAmt = r._3
1197+            let pmtAssetId = r._4
1198+            let state = r._5
1199+            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1200+            if ((b == b))
1201+                then {
1202+                    let $t04234642428 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1203+                    let refreshDLpActions = $t04234642428._1
1204+                    let updatedDLp = $t04234642428._2
1205+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1206+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1207+                        then (state ++ refreshDLpActions)
1208+                        else throw("Strict value is not equal to itself.")
1209+                    }
1210+                else throw("Strict value is not equal to itself.")
1211+            }
10081212         else throw("Strict value is not equal to itself.")
10091213     }
10101214 
10321236         else throwErr("exactly 1 payment are expected")]
10331237     if ((checks == checks))
10341238         then {
1035-            let $t03625836413 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1036-            let state = $t03625836413._1
1037-            let totalAmount = $t03625836413._2
1239+            let $t04304643201 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1240+            let state = $t04304643201._1
1241+            let totalAmount = $t04304643201._2
10381242             $Tuple2(state, totalAmount)
10391243             }
10401244         else throw("Strict value is not equal to itself.")
10431247 
10441248 
10451249 @Callable(i)
1250+func refreshDLp () = {
1251+    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1252+    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1253+        then unit
1254+        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1255+    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1256+        then {
1257+            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1258+            let $t04372543789 = refreshDLpInternal(0, 0, 0)
1259+            let dLpUpdateActions = $t04372543789._1
1260+            let updatedDLp = $t04372543789._2
1261+            let actions = if ((dLp != updatedDLp))
1262+                then dLpUpdateActions
1263+                else throwErr("nothing to refresh")
1264+            $Tuple2(actions, toString(updatedDLp))
1265+            }
1266+        else throw("Strict value is not equal to itself.")
1267+    }
1268+
1269+
1270+
1271+@Callable(i)
10461272 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1047-    let poolConfig = gpc()
1048-    let amId = poolConfig[idxAmAsId]
1049-    let prId = poolConfig[idxPrAsId]
1050-    let lpId = poolConfig[idxLPAsId]
1273+    let amId = toBase58String(value(cfgAmountAssetId))
1274+    let prId = toBase58String(value(cfgPriceAssetId))
1275+    let lpId = toBase58String(value(cfgLpAssetId))
10511276     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
10521277     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
10531278     let D0 = getD(xp)
10601285     let newY = getYD(xp, index, D1)
10611286     let dy = (xp[index] - newY)
10621287     let totalGetRaw = max([0, toInt((dy - big1))])
1063-    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064-    let totalGet = $t03720337258._1
1065-    let feeAmount = $t03720337258._2
1288+    let $t04471944774 = takeFee(totalGetRaw, outFee)
1289+    let totalGet = $t04471944774._1
1290+    let feeAmount = $t04471944774._2
10661291     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
10671292     }
10681293 
10701295 
10711296 @Callable(i)
10721297 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1073-    let poolConfig = gpc()
1074-    let amId = poolConfig[idxAmAsId]
1075-    let prId = poolConfig[idxPrAsId]
1076-    let lpId = poolConfig[idxLPAsId]
1298+    let amId = toBase58String(value(cfgAmountAssetId))
1299+    let prId = toBase58String(value(cfgPriceAssetId))
1300+    let lpId = toBase58String(value(cfgLpAssetId))
10771301     let amBalance = getAccBalance(amId)
10781302     let prBalance = getAccBalance(prId)
1079-    let $t03760337718 = {
1303+    let $t04514945264 = {
10801304         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
10811305         if ($isInstanceOf(@, "(Int, Int)"))
10821306             then @
10831307             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
10841308         }
1085-    let totalGet = $t03760337718._1
1086-    let feeAmount = $t03760337718._2
1309+    let totalGet = $t04514945264._1
1310+    let feeAmount = $t04514945264._2
10871311     let r = ego("", lpId, lpAssetAmount, this)
10881312     let outAmAmt = r._1
10891313     let outPrAmt = r._2
11111335         else if ((noLessThenPriceAsset > outPrAmt))
11121336             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
11131337             else {
1114-                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115-                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116-                    then state
1338+                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1339+                if ((currentDLp == currentDLp))
1340+                    then {
1341+                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1342+                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1343+                            then {
1344+                                let $t04643046511 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1345+                                let refreshDLpActions = $t04643046511._1
1346+                                let updatedDLp = $t04643046511._2
1347+                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1348+                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1349+                                    then (state ++ refreshDLpActions)
1350+                                    else throw("Strict value is not equal to itself.")
1351+                                }
1352+                            else throw("Strict value is not equal to itself.")
1353+                        }
11171354                     else throw("Strict value is not equal to itself.")
11181355                 }
11191356     }
11271364         else true
11281365     if ((checkPayments == checkPayments))
11291366         then {
1130-            let cfg = gpc()
11311367             let factoryCfg = gfc()
1132-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1368+            let lpAssetId = cfgLpAssetId
11331369             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1370+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11341371             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
11351372             if ((unstakeInv == unstakeInv))
11361373                 then {
11371374                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1375+                    let outAmAmt = r._1
1376+                    let outPrAmt = r._2
11381377                     let sts = parseIntValue(r._9)
11391378                     let state = r._10
11401379                     let v = if (if (igs())
11461385                         then {
11471386                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11481387                             if ((burnA == burnA))
1149-                                then state
1388+                                then {
1389+                                    let $t04753547616 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1390+                                    let refreshDLpActions = $t04753547616._1
1391+                                    let updatedDLp = $t04753547616._2
1392+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1393+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1394+                                        then (state ++ refreshDLpActions)
1395+                                        else throw("Strict value is not equal to itself.")
1396+                                    }
11501397                                 else throw("Strict value is not equal to itself.")
11511398                             }
11521399                         else throw("Strict value is not equal to itself.")
11701417         else throw("no payments are expected")]
11711418     if ((checks == checks))
11721419         then {
1420+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11731421             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11741422             if ((unstakeInv == unstakeInv))
11751423                 then {
11861434                         then {
11871435                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11881436                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1189-                                then state
1437+                                then {
1438+                                    let $t04886448945 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1439+                                    let refreshDLpActions = $t04886448945._1
1440+                                    let updatedDLp = $t04886448945._2
1441+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1442+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1443+                                        then (state ++ refreshDLpActions)
1444+                                        else throw("Strict value is not equal to itself.")
1445+                                    }
11901446                                 else throw("Strict value is not equal to itself.")
11911447                             }
11921448                         else throw("Strict value is not equal to itself.")
12201476         else throwErr("no payments are expected")]
12211477     if ((checks == checks))
12221478         then {
1223-            let cfg = gpc()
12241479             let factoryCfg = gfc()
1225-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1480+            let lpAssetId = cfgLpAssetId
12261481             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
12271482             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
12281483             if ((unstakeInv == unstakeInv))
12291484                 then {
1230-                    let $t04155641744 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1231-                    let state = $t04155641744._1
1232-                    let totalAmount = $t04155641744._2
1485+                    let $t04984050028 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1486+                    let state = $t04984050028._1
1487+                    let totalAmount = $t04984050028._2
12331488                     $Tuple2(state, totalAmount)
12341489                     }
12351490                 else throw("Strict value is not equal to itself.")
12411496 
12421497 @Callable(i)
12431498 func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1244-    let poolConfig = gpc()
1245-    let amId = poolConfig[idxAmAsId]
1246-    let prId = poolConfig[idxPrAsId]
1247-    let lpId = poolConfig[idxLPAsId]
1248-    let $t04200342106 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1249-    let lpAmount = $t04200342106._1
1250-    let state = $t04200342106._2
1251-    let feeAmount = $t04200342106._3
1252-    let bonus = $t04200342106._4
1499+    let $t05015650259 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1500+    let lpAmount = $t05015650259._1
1501+    let state = $t05015650259._2
1502+    let feeAmount = $t05015650259._3
1503+    let bonus = $t05015650259._4
12531504     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12541505     }
12551506 
12571508 
12581509 @Callable(i)
12591510 func putOneTknV2WithoutTakeFeeREADONLY (paymentAmountRaw,paymentAssetId) = {
1260-    let poolConfig = gpc()
1261-    let amId = poolConfig[idxAmAsId]
1262-    let prId = poolConfig[idxPrAsId]
1263-    let lpId = poolConfig[idxLPAsId]
1264-    let $t04238542489 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1265-    let lpAmount = $t04238542489._1
1266-    let state = $t04238542489._2
1267-    let feeAmount = $t04238542489._3
1268-    let bonus = $t04238542489._4
1511+    let $t05040750511 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1512+    let lpAmount = $t05040750511._1
1513+    let state = $t05040750511._2
1514+    let feeAmount = $t05040750511._3
1515+    let bonus = $t05040750511._4
12691516     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12701517     }
12711518 
13501597     match tx {
13511598         case order: Order => 
13521599             let matcherPub = mp()
1353-            let orderValid = moa(order)
1600+            let orderValid = validateMatcherOrderAllowed(order)
13541601             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
13551602             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
13561603             if (if (if (orderValid)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let scale8 = 100000000
55 
66 let scale8BigInt = toBigInt(100000000)
77 
88 let scale18 = toBigInt(1000000000000000000)
99 
1010 let zeroBigInt = toBigInt(0)
1111 
1212 let big0 = toBigInt(0)
1313 
1414 let big1 = toBigInt(1)
1515 
1616 let big2 = toBigInt(2)
17+
18+let big3 = toBigInt(3)
19+
20+let big4 = toBigInt(4)
1721 
1822 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
1923 
2024 let wavesString = "WAVES"
2125 
2226 let Amult = "100"
2327 
2428 let Dconv = "1"
2529 
2630 let SEP = "__"
2731 
2832 let EMPTY = ""
2933 
3034 let PoolActive = 1
3135 
3236 let PoolPutDis = 2
3337 
3438 let PoolMatcherDis = 3
3539 
3640 let PoolShutdown = 4
3741 
3842 let idxPoolAddress = 1
3943 
4044 let idxPoolSt = 2
4145 
4246 let idxLPAsId = 3
4347 
4448 let idxAmAsId = 4
4549 
4650 let idxPrAsId = 5
4751 
4852 let idxAmtAsDcm = 6
4953 
5054 let idxPriceAsDcm = 7
5155 
5256 let idxIAmtAsId = 8
5357 
5458 let idxIPriceAsId = 9
5559 
5660 let idxFactStakCntr = 1
5761 
5862 let idxFactoryRestCntr = 6
5963 
6064 let idxFactSlippCntr = 7
6165 
6266 let idxFactGwxRewCntr = 10
6367 
6468 let feeDefault = fraction(10, scale8, 10000)
6569 
6670 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6771 
6872 
6973 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
7074 
7175 
76+func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
77+
78+
7279 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7380 
7481 
7582 func abs (val) = if ((zeroBigInt > val))
7683     then -(val)
7784     else val
7885 
7986 
8087 func absBigInt (val) = if ((zeroBigInt > val))
8188     then -(val)
8289     else val
8390 
8491 
8592 func fc () = "%s__factoryContract"
8693 
8794 
8895 func mpk () = "%s__managerPublicKey"
8996 
9097 
9198 func pmpk () = "%s__pendingManagerPublicKey"
9299 
93100 
94101 func pl () = "%s%s__price__last"
95102 
96103 
97104 func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
98105 
99106 
100107 func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
101108 
102109 
103110 func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
104111 
105112 
106113 func aa () = "%s__amountAsset"
107114 
108115 
109116 func pa () = "%s__priceAsset"
110117 
111118 
112119 func amp () = "%s__amp"
113120 
114121 
115122 func ada () = "%s__addonAddr"
116123 
117124 
125+let keyFee = "%s__fee"
126+
127+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
128+
129+let keyDLp = makeString(["%s", "dLp"], SEP)
130+
131+let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
132+
133+let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
134+
135+let dLpRefreshDelayDefault = 1
136+
137+let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
138+
118139 func fcfg () = "%s__factoryConfig"
119140 
120141 
121142 func mtpk () = "%s%s__matcher__publicKey"
122143 
123144 
124145 func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125146 
126147 
127148 func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128149 
129150 
130151 func aps () = "%s__shutdown"
131152 
132153 
133154 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134155 
135156 
136157 func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137158 
138159 
139160 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140161 
141162 
142-func str (val) = match val {
143-    case valStr: String => 
144-        valStr
145-    case _ => 
146-        throw("fail cast to String")
147-}
148-
149-
150163 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151164 
152165 
153166 func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154167 
155168 
156169 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
170+
171+
172+func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
157173 
158174 
159175 let fca = addressFromStringValue(strf(this, fc()))
160176 
161177 let inFee = {
162178     let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
163179     if ($isInstanceOf(@, "Int"))
164180         then @
165181         else throw(($getType(@) + " couldn't be cast to Int"))
166182     }
167183 
168184 let outFee = {
169185     let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
170186     if ($isInstanceOf(@, "Int"))
171187         then @
172188         else throw(($getType(@) + " couldn't be cast to Int"))
173189     }
174190 
175191 let A = strf(this, amp())
176192 
177193 func igs () = valueOrElse(getBoolean(fca, aps()), false)
178194 
179195 
180196 func mp () = fromBase58String(strf(fca, mtpk()))
181197 
182198 
183199 let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
184200 
185201 func gpc () = {
186202     let amtAs = strf(this, aa())
187203     let priceAs = strf(this, pa())
188204     let iPriceAs = intf(fca, mba(priceAs))
189205     let iAmtAs = intf(fca, mba(amtAs))
190206     split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
191207     }
192208 
193209 
194210 func parseAssetId (input) = if ((input == wavesString))
195211     then unit
196212     else fromBase58String(input)
197213 
198214 
199215 func assetIdToString (input) = if ((input == unit))
200216     then wavesString
201217     else toBase58String(value(input))
202218 
203219 
204-func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
220+func parsePoolConfig (poolConfig) = $Tuple9(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]), fromBase58String(poolConfig[idxIAmtAsId]), fromBase58String(poolConfig[idxIPriceAsId]))
205221 
206222 
207223 let poolConfigParsed = parsePoolConfig(gpc())
208224 
209-let $t069097095 = poolConfigParsed
225+let $t075447773 = poolConfigParsed
210226 
211-let cfgPoolAddress = $t069097095._1
227+let cfgPoolAddress = $t075447773._1
212228 
213-let cfgPoolStatus = $t069097095._2
229+let cfgPoolStatus = $t075447773._2
214230 
215-let cfgLpAssetId = $t069097095._3
231+let cfgLpAssetId = $t075447773._3
216232 
217-let cfgAmountAssetId = $t069097095._4
233+let cfgAmountAssetId = $t075447773._4
218234 
219-let cfgPriceAssetId = $t069097095._5
235+let cfgPriceAssetId = $t075447773._5
220236 
221-let cfgAmountAssetDecimals = $t069097095._6
237+let cfgAmountAssetDecimals = $t075447773._6
222238 
223-let cfgPriceAssetDecimals = $t069097095._7
239+let cfgPriceAssetDecimals = $t075447773._7
240+
241+let cfgInAmountAssedId = $t075447773._8
242+
243+let cfgInPriceAssetId = $t075447773._9
224244 
225245 func gfc () = split(strf(fca, fcfg()), SEP)
226246 
227247 
228248 let factoryConfig = gfc()
229249 
230250 let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
231251 
232252 let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
233253 
234254 let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
235255 
236256 let restContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactoryRestCntr]), "Invalid gwx contract address")
237257 
238258 func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
239259 
240260 
241261 func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
242262 
243263 
244264 func getAccBalance (assetId) = if ((assetId == "WAVES"))
245265     then wavesBalance(this).available
246266     else assetBalance(this, fromBase58String(assetId))
247267 
248268 
249269 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
270+
271+
272+func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
250273 
251274 
252275 func vad (A1,A2,slippage) = {
253276     let diff = fraction((A1 - A2), scale8BigInt, A2)
254277     let pass = ((slippage - abs(diff)) > zeroBigInt)
255278     if (!(pass))
256279         then throw(("Big slpg: " + toString(diff)))
257280         else $Tuple2(pass, min([A1, A2]))
258281     }
259282 
260283 
261284 func vd (D1,D0,slpg) = {
262285     let diff = fraction(D0, scale8BigInt, D1)
263286     let fail = (slpg > diff)
264287     if (if (fail)
265288         then true
266289         else (D0 > D1))
267290         then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
268291         else fail
269292     }
270293 
271294 
272295 func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
273296     let amtAsAmtX18 = t1(amAmt, amAssetDcm)
274297     let prAsAmtX18 = t1(prAmt, prAssetDcm)
275298     cpbi(prAsAmtX18, amtAsAmtX18)
276299     }
277300 
278301 
279302 func calcPrices (amAmt,prAmt,lpAmt) = {
280-    let cfg = gpc()
281-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
303+    let amtAsDcm = cfgAmountAssetDecimals
304+    let prAsDcm = cfgPriceAssetDecimals
283305     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
284306     let amAmtX18 = t1(amAmt, amtAsDcm)
285307     let prAmtX18 = t1(prAmt, prAsDcm)
286308     let lpAmtX18 = t1(lpAmt, scale8)
287309     let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
288310     let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
289311 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
290312     }
291313 
292314 
293315 func calculatePrices (amAmt,prAmt,lpAmt) = {
294316     let p = calcPrices(amAmt, prAmt, lpAmt)
295317 [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
296318     }
297319 
298320 
299321 func takeFee (amount,fee) = {
300322     let feeAmount = if ((fee == 0))
301323         then 0
302324         else fraction(amount, fee, scale8)
303325     $Tuple2((amount - feeAmount), feeAmount)
304326     }
305327 
306328 
307329 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
308-    let cfg = gpc()
309-    let lpId = cfg[idxLPAsId]
310-    let amId = cfg[idxAmAsId]
311-    let prId = cfg[idxPrAsId]
312-    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
313-    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
314-    let sts = cfg[idxPoolSt]
315-    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
316-    if ((lpId != pmtAssetId))
330+    let lpId = cfgLpAssetId
331+    let amId = toBase58String(value(cfgAmountAssetId))
332+    let prId = toBase58String(value(cfgPriceAssetId))
333+    let amDcm = cfgAmountAssetDecimals
334+    let prDcm = cfgPriceAssetDecimals
335+    let sts = toString(cfgPoolStatus)
336+    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
337+    if ((toBase58String(lpId) != pmtAssetId))
317338         then throw("Wrong pmt asset")
318339         else {
319340             let amBalance = getAccBalance(amId)
320341             let amBalanceX18 = t1(amBalance, amDcm)
321342             let prBalance = getAccBalance(prId)
322343             let prBalanceX18 = t1(prBalance, prDcm)
323344             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
324345             let curPrice = f1(curPriceX18, scale8)
325346             let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
326347             let lpEmissX18 = t1(lpEmiss, scale8)
327348             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
328349             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
329-            let outAmAmt = f1(outAmAmtX18, amDcm)
330-            let outPrAmt = f1(outPrAmtX18, prDcm)
350+            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
351+            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
331352             let state = if ((txId58 == ""))
332353                 then nil
333354                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
334355                     then unit
335356                     else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
336357                     then unit
337358                     else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
338359             $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
339360             }
340361     }
341362 
342363 
343364 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
344-    let cfg = gpc()
345-    let lpId = fromBase58String(cfg[idxLPAsId])
346-    let amIdStr = cfg[idxAmAsId]
347-    let prIdStr = cfg[idxPrAsId]
348-    let inAmIdStr = cfg[idxIAmtAsId]
349-    let inPrIdStr = cfg[idxIPriceAsId]
350-    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
351-    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
352-    let sts = cfg[idxPoolSt]
365+    let lpId = cfgLpAssetId
366+    let amIdStr = toBase58String(value(cfgAmountAssetId))
367+    let prIdStr = toBase58String(value(cfgPriceAssetId))
368+    let inAmIdStr = cfgInAmountAssedId
369+    let inPrIdStr = cfgInPriceAssetId
370+    let amtDcm = cfgAmountAssetDecimals
371+    let priceDcm = cfgPriceAssetDecimals
372+    let sts = toString(cfgPoolStatus)
353373     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
354374     let amBalance = if (isEval)
355375         then getAccBalance(amIdStr)
356376         else if (if (isOneAsset)
357377             then (pmtId == amIdStr)
358378             else false)
359379             then (getAccBalance(amIdStr) - pmtAmt)
360380             else if (isOneAsset)
361381                 then getAccBalance(amIdStr)
362382                 else (getAccBalance(amIdStr) - inAmAmt)
363383     let prBalance = if (isEval)
364384         then getAccBalance(prIdStr)
365385         else if (if (isOneAsset)
366386             then (pmtId == prIdStr)
367387             else false)
368388             then (getAccBalance(prIdStr) - pmtAmt)
369389             else if (isOneAsset)
370390                 then getAccBalance(prIdStr)
371391                 else (getAccBalance(prIdStr) - inPrAmt)
372392     let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
373393     let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
374394     let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
375395     let amBalanceX18 = t1(amBalance, amtDcm)
376396     let prBalanceX18 = t1(prBalance, priceDcm)
377397     let r = if ((lpEm == 0))
378398         then {
379399             let curPriceX18 = zeroBigInt
380400             let slippageX18 = zeroBigInt
381401             let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
382402             $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
383403             }
384404         else {
385405             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
386406             let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
387407             let slippageX18 = t1(slippage, scale8)
388408             if (if (if (validateSlippage)
389409                 then (curPriceX18 != zeroBigInt)
390410                 else false)
391411                 then (slippageRealX18 > slippageX18)
392412                 else false)
393413                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
394414                 else {
395415                     let lpEmissionX18 = t1(lpEm, scale8)
396-                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
416+                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, FLOOR), scale18, FLOOR)
417+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), FLOOR)
398418                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
399419                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
400420                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
401421                     let expAmtAssetAmtX18 = expectedAmts._1
402422                     let expPriceAssetAmtX18 = expectedAmts._2
403-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404-                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
423+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
424+                    $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
405425                     }
406426             }
407427     let calcLpAmt = r._1
408428     let calcAmAssetPmt = r._2
409429     let calcPrAssetPmt = r._3
410430     let curPrice = f1(r._4, scale8)
411431     let slippageCalc = f1(r._5, scale8)
412432     if ((0 >= calcLpAmt))
413433         then throw("LP <= 0")
414434         else {
415435             let emitLpAmt = if (!(emitLp))
416436                 then 0
417437                 else calcLpAmt
418438             let amDiff = (inAmAmt - calcAmAssetPmt)
419439             let prDiff = (inPrAmt - calcPrAssetPmt)
420-            let $t01756217907 = if (if (isOneAsset)
440+            let $t01841718762 = if (if (isOneAsset)
421441                 then (pmtId == amIdStr)
422442                 else false)
423443                 then $Tuple2(pmtAmt, 0)
424444                 else if (if (isOneAsset)
425445                     then (pmtId == prIdStr)
426446                     else false)
427447                     then $Tuple2(0, pmtAmt)
428448                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
429-            let writeAmAmt = $t01756217907._1
430-            let writePrAmt = $t01756217907._2
449+            let writeAmAmt = $t01841718762._1
450+            let writePrAmt = $t01841718762._2
431451             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
432452             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
433453             }
434454     }
435455 
436456 
437-func moa (order) = {
438-    let cfg = gpc()
439-    let amtAsId = cfg[idxAmAsId]
440-    let prAsId = cfg[idxPrAsId]
441-    let sts = parseIntValue(cfg[idxPoolSt])
442-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
443-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
444-    let accAmtAsBalance = getAccBalance(amtAsId)
445-    let accPrAsBalance = getAccBalance(prAsId)
446-    let curPriceX18 = if ((order.orderType == Buy))
447-        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
448-        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
449-    let curPrice = f1(curPriceX18, scale8)
457+func getD (xp) = {
458+    let xp0 = xp[0]
459+    let xp1 = xp[1]
460+    let s = (xp0 + xp1)
461+    if ((s == big0))
462+        then big0
463+        else {
464+            let a = parseIntValue(A)
465+            let ann = (a * 2)
466+            let p = fraction(xp0, xp1, big1)
467+            let xp0_xp1_n_n = fraction(p, big4, big1)
468+            let ann_s = fraction(toBigInt(ann), s, big1)
469+            let ann_1 = toBigInt((ann - 1))
470+            func calcDNext (d) =             {
471+                let dd = fraction(d, d, big1)
472+                let ddd = fraction(dd, d, big1)
473+                let dp = fraction(ddd, big1, xp0_xp1_n_n)
474+                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
475+                }
476+
477+            func calc (acc,i) =             if (acc._2)
478+                then acc
479+                else {
480+                    let d = acc._1
481+                    let dNext = calcDNext(d)
482+                    let dDiffRaw = toInt((dNext - value(d)))
483+                    let dDiff = if ((0 > dDiffRaw))
484+                        then -(dDiffRaw)
485+                        else dDiffRaw
486+                    if ((1 >= dDiff))
487+                        then $Tuple2(dNext, true)
488+                        else $Tuple2(dNext, false)
489+                    }
490+
491+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
492+            let $t02069020738 = {
493+                let $l = arr
494+                let $s = size($l)
495+                let $acc0 = $Tuple2(s, false)
496+                func $f0_1 ($a,$i) =                 if (($i >= $s))
497+                    then $a
498+                    else calc($a, $l[$i])
499+
500+                func $f0_2 ($a,$i) =                 if (($i >= $s))
501+                    then $a
502+                    else throw("List size exceeds 15")
503+
504+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
505+                }
506+            let d = $t02069020738._1
507+            let found = $t02069020738._2
508+            if (found)
509+                then d
510+                else throw(("D calculation error, D = " + toString(d)))
511+            }
512+    }
513+
514+
515+func getDOld (xp) = {
516+    let n = big2
517+    let xp0 = xp[0]
518+    let xp1 = xp[1]
519+    let aPrecision = parseBigIntValue(Amult)
520+    let a = (parseBigIntValue(A) * aPrecision)
521+    let s = (xp0 + xp1)
522+    if ((s == big0))
523+        then big0
524+        else {
525+            let ann = (a * n)
526+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
527+            let ann_s_aPrecision = ((ann * s) / aPrecision)
528+            let ann_aPrecision = (ann - aPrecision)
529+            let n1 = (n + big1)
530+            func calc (acc,cur) =             {
531+                let $t02136721387 = acc
532+                let d = $t02136721387._1
533+                let found = $t02136721387._2
534+                if ((found != unit))
535+                    then acc
536+                    else {
537+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
538+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
539+                        let dDiff = absBigInt((dNext - value(d)))
540+                        if ((big1 >= dDiff))
541+                            then $Tuple2(dNext, cur)
542+                            else $Tuple2(dNext, unit)
543+                        }
544+                }
545+
546+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
547+            let $t02180821855 = {
548+                let $l = arr
549+                let $s = size($l)
550+                let $acc0 = $Tuple2(s, unit)
551+                func $f0_1 ($a,$i) =                 if (($i >= $s))
552+                    then $a
553+                    else calc($a, $l[$i])
554+
555+                func $f0_2 ($a,$i) =                 if (($i >= $s))
556+                    then $a
557+                    else throw("List size exceeds 15")
558+
559+                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
560+                }
561+            let d = $t02180821855._1
562+            let found = $t02180821855._2
563+            if ((found != unit))
564+                then d
565+                else throw(("D calculation error, D = " + toString(d)))
566+            }
567+    }
568+
569+
570+func getYD (xp,i,D) = {
571+    let n = big2
572+    let x = xp[if ((i == 0))
573+        then 1
574+        else 0]
575+    let aPrecision = parseBigIntValue(Amult)
576+    let a = (parseBigIntValue(A) * aPrecision)
577+    let s = x
578+    let ann = (a * n)
579+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
580+    let b = ((s + ((D * aPrecision) / ann)) - D)
581+    func calc (acc,cur) =     {
582+        let $t02235522375 = acc
583+        let y = $t02235522375._1
584+        let found = $t02235522375._2
585+        if ((found != unit))
586+            then acc
587+            else {
588+                let yNext = (((y * y) + c) / ((big2 * y) + b))
589+                let yDiff = absBigInt((yNext - value(y)))
590+                if ((big1 >= yDiff))
591+                    then $Tuple2(yNext, cur)
592+                    else $Tuple2(yNext, unit)
593+                }
594+        }
595+
596+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
597+    let $t02268222729 = {
598+        let $l = arr
599+        let $s = size($l)
600+        let $acc0 = $Tuple2(D, unit)
601+        func $f0_1 ($a,$i) =         if (($i >= $s))
602+            then $a
603+            else calc($a, $l[$i])
604+
605+        func $f0_2 ($a,$i) =         if (($i >= $s))
606+            then $a
607+            else throw("List size exceeds 15")
608+
609+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
610+        }
611+    let y = $t02268222729._1
612+    let found = $t02268222729._2
613+    if ((found != unit))
614+        then y
615+        else throw(("Y calculation error, Y = " + toString(y)))
616+    }
617+
618+
619+func calcDLp (amountBalance,priceBalance,lpEmission) = {
620+    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
621+    if ((lpEmission == big0))
622+        then big0
623+        else updatedDLp
624+    }
625+
626+
627+func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
628+    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
629+    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
630+    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
631+    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
632+    currentDLp
633+    }
634+
635+
636+func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
637+    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
638+    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
639+    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
640+    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
641+    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
642+    $Tuple2(actions, updatedDLp)
643+    }
644+
645+
646+func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
647+    then true
648+    else throwErr("updated DLp lower than current DLp")
649+
650+
651+func validateMatcherOrderAllowed (order) = {
652+    let amountAssetAmount = order.amount
653+    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
654+    let $t02466824880 = if ((order.orderType == Buy))
655+        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
656+        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
657+    let amountAssetBalanceDelta = $t02466824880._1
658+    let priceAssetBalanceDelta = $t02466824880._2
450659     if (if (if (igs())
451660         then true
452-        else (sts == PoolMatcherDis))
661+        else (cfgPoolStatus == PoolMatcherDis))
453662         then true
454-        else (sts == PoolShutdown))
663+        else (cfgPoolStatus == PoolShutdown))
455664         then throw("Admin blocked")
456-        else {
457-            let orAmtAsset = order.assetPair.amountAsset
458-            let orAmtAsStr = if ((orAmtAsset == unit))
459-                then "WAVES"
460-                else toBase58String(value(orAmtAsset))
461-            let orPrAsset = order.assetPair.priceAsset
462-            let orPrAsStr = if ((orPrAsset == unit))
463-                then "WAVES"
464-                else toBase58String(value(orPrAsset))
465-            if (if ((orAmtAsStr != amtAsId))
466-                then true
467-                else (orPrAsStr != prAsId))
468-                then throw("Wr assets")
469-                else {
470-                    let orderPrice = order.price
471-                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
472-                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
473-                    let isOrderPriceValid = if ((order.orderType == Buy))
474-                        then (curPrice >= castOrderPrice)
475-                        else (castOrderPrice >= curPrice)
476-                    true
477-                    }
478-            }
665+        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
666+            then true
667+            else (order.assetPair.priceAsset != cfgPriceAssetId))
668+            then throw("Wr assets")
669+            else {
670+                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
671+                let $t02521025310 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
672+                let unusedActions = $t02521025310._1
673+                let dLpNew = $t02521025310._2
674+                let isOrderValid = (dLpNew >= dLp)
675+                isOrderValid
676+                }
479677     }
480678 
481679 
482680 func cg (i) = if ((size(i.payments) != 1))
483681     then throw("1 pmnt exp")
484682     else {
485683         let pmt = value(i.payments[0])
486684         let pmtAssetId = value(pmt.assetId)
487685         let pmtAmt = pmt.amount
488686         let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
489687         let outAmAmt = r._1
490688         let outPrAmt = r._2
491689         let sts = parseIntValue(r._9)
492690         let state = r._10
493691         if (if (igs())
494692             then true
495693             else (sts == PoolShutdown))
496694             then throw(("Admin blocked: " + toString(sts)))
497695             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
498696         }
499697 
500698 
501699 func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
502700     let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
503701     let sts = parseIntValue(r._8)
504702     if (if (if (igs())
505703         then true
506704         else (sts == PoolPutDis))
507705         then true
508706         else (sts == PoolShutdown))
509707         then throw(("Blocked:" + toString(sts)))
510708         else r
511709     }
512710 
513711 
514-func getD (xp) = {
515-    let n = big2
516-    let xp0 = xp[0]
517-    let xp1 = xp[1]
518-    let aPrecision = parseBigIntValue(Amult)
519-    let a = (parseBigIntValue(A) * aPrecision)
520-    let s = (xp0 + xp1)
521-    if ((s == big0))
522-        then big0
523-        else {
524-            let ann = (a * n)
525-            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
526-            let ann_s_aPrecision = ((ann * s) / aPrecision)
527-            let ann_aPrecision = (ann - aPrecision)
528-            let n1 = (n + big1)
529-            func calc (acc,cur) =             {
530-                let $t02245922479 = acc
531-                let d = $t02245922479._1
532-                let found = $t02245922479._2
533-                if ((found != unit))
534-                    then acc
535-                    else {
536-                        let dp = (((d * d) * d) / xp0_xp1_n_n)
537-                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
538-                        let dDiff = absBigInt((dNext - value(d)))
539-                        if ((big1 >= dDiff))
540-                            then $Tuple2(dNext, cur)
541-                            else $Tuple2(dNext, unit)
542-                        }
543-                }
544-
545-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
546-            let $t02290022947 = {
547-                let $l = arr
548-                let $s = size($l)
549-                let $acc0 = $Tuple2(s, unit)
550-                func $f0_1 ($a,$i) =                 if (($i >= $s))
551-                    then $a
552-                    else calc($a, $l[$i])
553-
554-                func $f0_2 ($a,$i) =                 if (($i >= $s))
555-                    then $a
556-                    else throw("List size exceeds 15")
557-
558-                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
559-                }
560-            let d = $t02290022947._1
561-            let found = $t02290022947._2
562-            if ((found != unit))
563-                then d
564-                else throw(("D calculation error, D = " + toString(d)))
565-            }
566-    }
567-
568-
569-func getYD (xp,i,D) = {
570-    let n = big2
571-    let x = xp[if ((i == 0))
572-        then 1
573-        else 0]
574-    let aPrecision = parseBigIntValue(Amult)
575-    let a = (parseBigIntValue(A) * aPrecision)
576-    let s = x
577-    let ann = (a * n)
578-    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
579-    let b = ((s + ((D * aPrecision) / ann)) - D)
580-    func calc (acc,cur) =     {
581-        let $t02344723467 = acc
582-        let y = $t02344723467._1
583-        let found = $t02344723467._2
584-        if ((found != unit))
585-            then acc
586-            else {
587-                let yNext = (((y * y) + c) / ((big2 * y) + b))
588-                let yDiff = absBigInt((yNext - value(y)))
589-                if ((big1 >= yDiff))
590-                    then $Tuple2(yNext, cur)
591-                    else $Tuple2(yNext, unit)
592-                }
593-        }
594-
595-    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
596-    let $t02377423821 = {
597-        let $l = arr
598-        let $s = size($l)
599-        let $acc0 = $Tuple2(D, unit)
600-        func $f0_1 ($a,$i) =         if (($i >= $s))
601-            then $a
602-            else calc($a, $l[$i])
603-
604-        func $f0_2 ($a,$i) =         if (($i >= $s))
605-            then $a
606-            else throw("List size exceeds 15")
607-
608-        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
609-        }
610-    let y = $t02377423821._1
611-    let found = $t02377423821._2
612-    if ((found != unit))
613-        then y
614-        else throw(("Y calculation error, Y = " + toString(y)))
615-    }
616-
617-
618712 func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
619-    let poolConfig = gpc()
620-    let amId = poolConfig[idxAmAsId]
621-    let prId = poolConfig[idxPrAsId]
622-    let lpId = poolConfig[idxLPAsId]
623-    let amtDcm = parseIntValue(poolConfig[idxAmtAsDcm])
624-    let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
625-    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
713+    let amId = toBase58String(value(cfgAmountAssetId))
714+    let prId = toBase58String(value(cfgPriceAssetId))
715+    let lpId = cfgLpAssetId
716+    let amtDcm = cfgAmountAssetDecimals
717+    let priceDcm = cfgPriceAssetDecimals
718+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
626719     let chechEmission = if ((lpAssetEmission > big0))
627720         then true
628721         else throw("initial deposit requires all coins")
629722     if ((chechEmission == chechEmission))
630723         then {
631724             let amBalance = getAccBalance(amId)
632725             let prBalance = getAccBalance(prId)
633-            let $t02460425066 = if ((txId == ""))
726+            let $t02757628038 = if ((txId == ""))
634727                 then $Tuple2(amBalance, prBalance)
635728                 else if ((pmtAssetId == amId))
636729                     then if ((pmtAmtRaw > amBalance))
637730                         then throw("invalid payment amount")
638731                         else $Tuple2((amBalance - pmtAmtRaw), prBalance)
639732                     else if ((pmtAssetId == prId))
640733                         then if ((pmtAmtRaw > prBalance))
641734                             then throw("invalid payment amount")
642735                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
643736                         else throw("wrong pmtAssetId")
644-            let amBalanceOld = $t02460425066._1
645-            let prBalanceOld = $t02460425066._2
646-            let $t02507225248 = if ((pmtAssetId == amId))
737+            let amBalanceOld = $t02757628038._1
738+            let prBalanceOld = $t02757628038._2
739+            let $t02804428220 = if ((pmtAssetId == amId))
647740                 then $Tuple2(pmtAmtRaw, 0)
648741                 else if ((pmtAssetId == prId))
649742                     then $Tuple2(0, pmtAmtRaw)
650743                     else throw("invalid payment")
651-            let amAmountRaw = $t02507225248._1
652-            let prAmountRaw = $t02507225248._2
653-            let $t02525225506 = if (withTakeFee)
744+            let amAmountRaw = $t02804428220._1
745+            let prAmountRaw = $t02804428220._2
746+            let $t02822428478 = if (withTakeFee)
654747                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
655748                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
656-            let amAmount = $t02525225506._1
657-            let prAmount = $t02525225506._2
658-            let feeAmount = $t02525225506._3
749+            let amAmount = $t02822428478._1
750+            let prAmount = $t02822428478._2
751+            let feeAmount = $t02822428478._3
659752             let amBalanceNew = (amBalanceOld + amAmount)
660753             let prBalanceNew = (prBalanceOld + prAmount)
661754             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
662755             let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
663756             let checkD = if ((D1 > D0))
664757                 then true
665758                 else throw()
666759             if ((checkD == checkD))
667760                 then {
668-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
761+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
669762                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
670763                     let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
671764                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
672765                     let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
673766                     let priceAssetPart = (pmtAmtRaw - amountAssetPart)
674767                     let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
675768                     let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
676769                     $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
677770                     }
678771                 else throw("Strict value is not equal to itself.")
679772             }
680773         else throw("Strict value is not equal to itself.")
681774     }
682775 
683776 
684777 func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = {
685-    let poolConfig = gpc()
686-    let lpId = poolConfig[idxLPAsId]
687-    let amId = poolConfig[idxAmAsId]
688-    let prId = poolConfig[idxPrAsId]
689-    let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
690-    let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
691-    let poolStatus = poolConfig[idxPoolSt]
778+    let lpId = toBase58String(value(cfgLpAssetId))
779+    let amId = toBase58String(value(cfgAmountAssetId))
780+    let prId = toBase58String(value(cfgPriceAssetId))
781+    let amDecimals = cfgAmountAssetDecimals
782+    let prDecimals = cfgPriceAssetDecimals
783+    let poolStatus = cfgPoolStatus
692784     let userAddress = if ((caller == restContract))
693785         then originCaller
694786         else caller
695787     let pmt = value(payments[0])
696788     let pmtAssetId = value(pmt.assetId)
697789     let pmtAmt = pmt.amount
698-    let txId58 = toBase58String(transactionId)
699-    if ((lpId != toBase58String(pmtAssetId)))
700-        then throw("Wrong LP")
701-        else {
702-            let amBalance = getAccBalance(amId)
703-            let prBalance = getAccBalance(prId)
704-            let $t02750827619 = {
705-                let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
706-                if ($isInstanceOf(@, "(Int, Int)"))
707-                    then @
708-                    else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
709-                }
710-            if (($t02750827619 == $t02750827619))
711-                then {
712-                    let feeAmount = $t02750827619._2
713-                    let totalGet = $t02750827619._1
714-                    let totalAmount = if (if ((minOutAmount > 0))
715-                        then (minOutAmount > totalGet)
716-                        else false)
717-                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
718-                        else totalGet
719-                    let $t02780928116 = if ((outAssetId == amId))
720-                        then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
721-                        else if ((outAssetId == prId))
722-                            then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
723-                            else throw("invalid out asset id")
724-                    let outAm = $t02780928116._1
725-                    let outPr = $t02780928116._2
726-                    let amBalanceNew = $t02780928116._3
727-                    let prBalanceNew = $t02780928116._4
728-                    let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
729-                    let curPr = f1(curPrX18, scale8)
730-                    let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
731-                        then unit
732-                        else fromBase58String(outAssetId)
733-                    let sendFeeToMatcher = if ((feeAmount > 0))
734-                        then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
735-                        else nil
736-                    let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
737-                    if ((state == state))
790+    let currentDLp = calcCurrentDLp(big0, big0, big0)
791+    if ((currentDLp == currentDLp))
792+        then {
793+            let txId58 = toBase58String(transactionId)
794+            if ((lpId != toBase58String(pmtAssetId)))
795+                then throw("Wrong LP")
796+                else {
797+                    let amBalance = getAccBalance(amId)
798+                    let prBalance = getAccBalance(prId)
799+                    let $t03052830639 = {
800+                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
801+                        if ($isInstanceOf(@, "(Int, Int)"))
802+                            then @
803+                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
804+                        }
805+                    if (($t03052830639 == $t03052830639))
738806                         then {
739-                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740-                            if ((burn == burn))
741-                                then $Tuple2(state, totalAmount)
807+                            let feeAmount = $t03052830639._2
808+                            let totalGet = $t03052830639._1
809+                            let totalAmount = if (if ((minOutAmount > 0))
810+                                then (minOutAmount > totalGet)
811+                                else false)
812+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
813+                                else totalGet
814+                            let $t03082931136 = if ((outAssetId == amId))
815+                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
816+                                else if ((outAssetId == prId))
817+                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
818+                                    else throw("invalid out asset id")
819+                            let outAm = $t03082931136._1
820+                            let outPr = $t03082931136._2
821+                            let amBalanceNew = $t03082931136._3
822+                            let prBalanceNew = $t03082931136._4
823+                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
824+                            let curPr = f1(curPrX18, scale8)
825+                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
826+                                then unit
827+                                else fromBase58String(outAssetId)
828+                            let sendFeeToMatcher = if ((feeAmount > 0))
829+                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
830+                                else nil
831+                            let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
832+                            if ((state == state))
833+                                then {
834+                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
835+                                    if ((burn == burn))
836+                                        then {
837+                                            let $t03192132271 = {
838+                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
839+                                                    then 0
840+                                                    else feeAmount
841+                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
842+                                                    then true
843+                                                    else false
844+                                                if (outInAmountAsset)
845+                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
846+                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
847+                                                }
848+                                            let amountAssetBalanceDelta = $t03192132271._1
849+                                            let priceAssetBalanceDelta = $t03192132271._2
850+                                            let $t03227432382 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
851+                                            let refreshDLpActions = $t03227432382._1
852+                                            let updatedDLp = $t03227432382._2
853+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
854+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
855+                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
856+                                                else throw("Strict value is not equal to itself.")
857+                                            }
858+                                        else throw("Strict value is not equal to itself.")
859+                                    }
742860                                 else throw("Strict value is not equal to itself.")
743861                             }
744862                         else throw("Strict value is not equal to itself.")
745863                     }
746-                else throw("Strict value is not equal to itself.")
747864             }
865+        else throw("Strict value is not equal to itself.")
748866     }
749867 
750868 
751869 func m () = match getString(mpk()) {
752870     case s: String => 
753871         fromBase58String(s)
754872     case _: Unit => 
755873         unit
756874     case _ => 
757875         throw("Match error")
758876 }
759877 
760878 
761879 func pm () = match getString(pmpk()) {
762880     case s: String => 
763881         fromBase58String(s)
764882     case _: Unit => 
765883         unit
766884     case _ => 
767885         throw("Match error")
768886 }
769887 
770888 
771889 let pd = throw("Permission denied")
772890 
773891 func isManager (i) = match m() {
774892     case pk: ByteVector => 
775893         (i.callerPublicKey == pk)
776894     case _: Unit => 
777895         (i.caller == this)
778896     case _ => 
779897         throw("Match error")
780898 }
781899 
782900 
783901 func mm (i) = match m() {
784902     case pk: ByteVector => 
785903         if ((i.callerPublicKey == pk))
786904             then true
787905             else pd
788906     case _: Unit => 
789907         if ((i.caller == this))
790908             then true
791909             else pd
792910     case _ => 
793911         throw("Match error")
794912 }
795913 
796914 
797915 @Callable(i)
798916 func constructor (fc) = {
799917     let c = mm(i)
800918     if ((c == c))
801919         then [StringEntry(fc(), fc)]
802920         else throw("Strict value is not equal to itself.")
803921     }
804922 
805923 
806924 
807925 @Callable(i)
808926 func setManager (pendingManagerPublicKey) = {
809927     let c = mm(i)
810928     if ((c == c))
811929         then {
812930             let cm = fromBase58String(pendingManagerPublicKey)
813931             if ((cm == cm))
814932                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
815933                 else throw("Strict value is not equal to itself.")
816934             }
817935         else throw("Strict value is not equal to itself.")
818936     }
819937 
820938 
821939 
822940 @Callable(i)
823941 func confirmManager () = {
824942     let p = pm()
825943     let hpm = if (isDefined(p))
826944         then true
827945         else throw("No pending manager")
828946     if ((hpm == hpm))
829947         then {
830948             let cpm = if ((i.callerPublicKey == value(p)))
831949                 then true
832950                 else throw("You are not pending manager")
833951             if ((cpm == cpm))
834952                 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
835953                 else throw("Strict value is not equal to itself.")
836954             }
837955         else throw("Strict value is not equal to itself.")
838956     }
839957 
840958 
841959 
842960 @Callable(i)
843961 func put (slip,autoStake) = {
844962     let factCfg = gfc()
845963     let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
846964     let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
847965     if ((0 > slip))
848966         then throw("Wrong slippage")
849967         else if ((size(i.payments) != 2))
850968             then throw("2 pmnts expd")
851969             else {
852-                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
853-                let emitLpAmt = e._2
854-                let lpAssetId = e._7
855-                let state = e._9
856-                let amDiff = e._10
857-                let prDiff = e._11
858-                let amId = e._12
859-                let prId = e._13
860-                let r = invoke(fca, "emit", [emitLpAmt], nil)
861-                if ((r == r))
970+                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
971+                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
972+                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
973+                if ((amountAssetBalance == amountAssetBalance))
862974                     then {
863-                        let el =                         match r {
864-                            case legacy: Address => 
865-                                invoke(legacy, "emit", [emitLpAmt], nil)
866-                            case _ => 
867-                                unit
868-                        }
869-                        if ((el == el))
975+                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
976+                        if ((priceAssetBalance == priceAssetBalance))
870977                             then {
871-                                let sa = if ((amDiff > 0))
872-                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873-                                    else nil
874-                                if ((sa == sa))
978+                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
979+                                if ((lpAssetEmission == lpAssetEmission))
875980                                     then {
876-                                        let sp = if ((prDiff > 0))
877-                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878-                                            else nil
879-                                        if ((sp == sp))
981+                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
982+                                        if ((currentDLp == currentDLp))
880983                                             then {
881-                                                let lpTrnsfr = if (autoStake)
984+                                                let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
985+                                                let emitLpAmt = e._2
986+                                                let lpAssetId = e._7
987+                                                let state = e._9
988+                                                let amDiff = e._10
989+                                                let prDiff = e._11
990+                                                let amId = e._12
991+                                                let prId = e._13
992+                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
993+                                                if ((r == r))
882994                                                     then {
883-                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884-                                                        if ((ss == ss))
885-                                                            then nil
995+                                                        let el =                                                         match r {
996+                                                            case legacy: Address => 
997+                                                                invoke(legacy, "emit", [emitLpAmt], nil)
998+                                                            case _ => 
999+                                                                unit
1000+                                                        }
1001+                                                        if ((el == el))
1002+                                                            then {
1003+                                                                let sa = if ((amDiff > 0))
1004+                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1005+                                                                    else nil
1006+                                                                if ((sa == sa))
1007+                                                                    then {
1008+                                                                        let sp = if ((prDiff > 0))
1009+                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1010+                                                                            else nil
1011+                                                                        if ((sp == sp))
1012+                                                                            then {
1013+                                                                                let lpTrnsfr = if (autoStake)
1014+                                                                                    then {
1015+                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1016+                                                                                        if ((ss == ss))
1017+                                                                                            then nil
1018+                                                                                            else throw("Strict value is not equal to itself.")
1019+                                                                                        }
1020+                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1021+                                                                                let $t03653136673 = refreshDLpInternal(0, 0, 0)
1022+                                                                                let refreshDLpActions = $t03653136673._1
1023+                                                                                let updatedDLp = $t03653136673._2
1024+                                                                                let check = if ((updatedDLp >= currentDLp))
1025+                                                                                    then true
1026+                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1027+                                                                                if ((check == check))
1028+                                                                                    then {
1029+                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1030+                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1031+                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1032+                                                                                            else throw("Strict value is not equal to itself.")
1033+                                                                                        }
1034+                                                                                    else throw("Strict value is not equal to itself.")
1035+                                                                                }
1036+                                                                            else throw("Strict value is not equal to itself.")
1037+                                                                        }
1038+                                                                    else throw("Strict value is not equal to itself.")
1039+                                                                }
8861040                                                             else throw("Strict value is not equal to itself.")
8871041                                                         }
888-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889-                                                (state ++ lpTrnsfr)
1042+                                                    else throw("Strict value is not equal to itself.")
8901043                                                 }
8911044                                             else throw("Strict value is not equal to itself.")
8921045                                         }
8931046                                     else throw("Strict value is not equal to itself.")
8941047                                 }
8951048                             else throw("Strict value is not equal to itself.")
8961049                         }
8971050                     else throw("Strict value is not equal to itself.")
8981051                 }
8991052     }
9001053 
9011054 
9021055 
9031056 @Callable(i)
9041057 func putOneTknV2 (minOutAmount,autoStake) = {
9051058     let isPoolOneTokenOperationsDisabled = {
9061059         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
9071060         if ($isInstanceOf(@, "Boolean"))
9081061             then @
9091062             else throw(($getType(@) + " couldn't be cast to Boolean"))
9101063         }
9111064     let isPutDisabled = if (if (if (igs())
9121065         then true
9131066         else (cfgPoolStatus == PoolPutDis))
9141067         then true
9151068         else (cfgPoolStatus == PoolShutdown))
9161069         then true
9171070         else isPoolOneTokenOperationsDisabled
9181071     let checks = [if (if (!(isPutDisabled))
9191072         then true
9201073         else isManager(i))
9211074         then true
9221075         else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
9231076         then true
9241077         else throwErr("exactly 1 payment are expected")]
9251078     if ((checks == checks))
9261079         then {
927-            let poolConfig = gpc()
928-            let amId = poolConfig[idxAmAsId]
929-            let prId = poolConfig[idxPrAsId]
930-            let lpId = fromBase58String(poolConfig[idxLPAsId])
931-            let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
932-            let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
1080+            let amId = toBase58String(value(cfgAmountAssetId))
1081+            let prId = toBase58String(value(cfgPriceAssetId))
1082+            let lpId = cfgLpAssetId
1083+            let amDecimals = cfgAmountAssetDecimals
1084+            let prDecimals = cfgPriceAssetDecimals
9331085             let userAddress = if ((i.caller == this))
9341086                 then i.originCaller
9351087                 else i.caller
9361088             let pmt = value(i.payments[0])
9371089             let pmtAssetId = toBase58String(value(pmt.assetId))
9381090             let pmtAmt = pmt.amount
939-            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940-            if (($t03347833636 == $t03347833636))
1091+            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1092+                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1093+                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1094+            if ((currentDLp == currentDLp))
9411095                 then {
942-                    let feeAmount = $t03347833636._3
943-                    let state = $t03347833636._2
944-                    let estimLP = $t03347833636._1
945-                    let emitLpAmt = if (if ((minOutAmount > 0))
946-                        then (minOutAmount > estimLP)
947-                        else false)
948-                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
949-                        else estimLP
950-                    let e = invoke(fca, "emit", [emitLpAmt], nil)
951-                    if ((e == e))
1096+                    let $t03864538803 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1097+                    if (($t03864538803 == $t03864538803))
9521098                         then {
953-                            let el =                             match e {
954-                                case legacy: Address => 
955-                                    invoke(legacy, "emit", [emitLpAmt], nil)
956-                                case _ => 
957-                                    unit
958-                            }
959-                            if ((el == el))
1099+                            let feeAmount = $t03864538803._3
1100+                            let state = $t03864538803._2
1101+                            let estimLP = $t03864538803._1
1102+                            let emitLpAmt = if (if ((minOutAmount > 0))
1103+                                then (minOutAmount > estimLP)
1104+                                else false)
1105+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1106+                                else estimLP
1107+                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1108+                            if ((e == e))
9601109                                 then {
961-                                    let lpTrnsfr = if (autoStake)
1110+                                    let el =                                     match e {
1111+                                        case legacy: Address => 
1112+                                            invoke(legacy, "emit", [emitLpAmt], nil)
1113+                                        case _ => 
1114+                                            unit
1115+                                    }
1116+                                    if ((el == el))
9621117                                         then {
963-                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964-                                            if ((ss == ss))
965-                                                then nil
1118+                                            let lpTrnsfr = if (autoStake)
1119+                                                then {
1120+                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1121+                                                    if ((ss == ss))
1122+                                                        then nil
1123+                                                        else throw("Strict value is not equal to itself.")
1124+                                                    }
1125+                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1126+                                            let sendFeeToMatcher = if ((feeAmount > 0))
1127+                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1128+                                                else nil
1129+                                            let $t03961839967 = if ((this == feeCollectorAddress))
1130+                                                then $Tuple2(0, 0)
1131+                                                else {
1132+                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1133+                                                        then true
1134+                                                        else false
1135+                                                    if (paymentInAmountAsset)
1136+                                                        then $Tuple2(-(feeAmount), 0)
1137+                                                        else $Tuple2(0, -(feeAmount))
1138+                                                    }
1139+                                            let amountAssetBalanceDelta = $t03961839967._1
1140+                                            let priceAssetBalanceDelta = $t03961839967._2
1141+                                            let $t03997040078 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1142+                                            let refreshDLpActions = $t03997040078._1
1143+                                            let updatedDLp = $t03997040078._2
1144+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1145+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1146+                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
9661147                                                 else throw("Strict value is not equal to itself.")
9671148                                             }
968-                                        else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
969-                                    let sendFeeToMatcher = if ((feeAmount > 0))
970-                                        then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
971-                                        else nil
972-                                    $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
1149+                                        else throw("Strict value is not equal to itself.")
9731150                                     }
9741151                                 else throw("Strict value is not equal to itself.")
9751152                             }
9761153                         else throw("Strict value is not equal to itself.")
9771154                     }
9781155                 else throw("Strict value is not equal to itself.")
9791156             }
9801157         else throw("Strict value is not equal to itself.")
9811158     }
9821159 
9831160 
9841161 
9851162 @Callable(i)
9861163 func putForFree (maxSlpg) = if ((0 > maxSlpg))
9871164     then throw("Wrong slpg")
9881165     else if ((size(i.payments) != 2))
9891166         then throw("2 pmnts expd")
9901167         else {
9911168             let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, true, 0, "")
992-            estPut._9
1169+            let state = estPut._9
1170+            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1171+            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1172+            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1173+            if ((currentDLp == currentDLp))
1174+                then {
1175+                    let $t04110841173 = refreshDLpInternal(0, 0, 0)
1176+                    let refreshDLpActions = $t04110841173._1
1177+                    let updatedDLp = $t04110841173._2
1178+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1179+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1180+                        then (state ++ refreshDLpActions)
1181+                        else throw("Strict value is not equal to itself.")
1182+                    }
1183+                else throw("Strict value is not equal to itself.")
9931184             }
9941185 
9951186 
9961187 
9971188 @Callable(i)
9981189 func get () = {
999-    let r = cg(i)
1000-    let outAmtAmt = r._1
1001-    let outPrAmt = r._2
1002-    let pmtAmt = r._3
1003-    let pmtAssetId = r._4
1004-    let state = r._5
1005-    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1006-    if ((b == b))
1007-        then state
1190+    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1191+    if ((currentDLp == currentDLp))
1192+        then {
1193+            let r = cg(i)
1194+            let outAmtAmt = r._1
1195+            let outPrAmt = r._2
1196+            let pmtAmt = r._3
1197+            let pmtAssetId = r._4
1198+            let state = r._5
1199+            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1200+            if ((b == b))
1201+                then {
1202+                    let $t04234642428 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1203+                    let refreshDLpActions = $t04234642428._1
1204+                    let updatedDLp = $t04234642428._2
1205+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1206+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1207+                        then (state ++ refreshDLpActions)
1208+                        else throw("Strict value is not equal to itself.")
1209+                    }
1210+                else throw("Strict value is not equal to itself.")
1211+            }
10081212         else throw("Strict value is not equal to itself.")
10091213     }
10101214 
10111215 
10121216 
10131217 @Callable(i)
10141218 func getOneTknV2 (outAssetId,minOutAmount) = {
10151219     let isPoolOneTokenOperationsDisabled = {
10161220         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
10171221         if ($isInstanceOf(@, "Boolean"))
10181222             then @
10191223             else throw(($getType(@) + " couldn't be cast to Boolean"))
10201224         }
10211225     let isGetDisabled = if (if (igs())
10221226         then true
10231227         else (cfgPoolStatus == PoolShutdown))
10241228         then true
10251229         else isPoolOneTokenOperationsDisabled
10261230     let checks = [if (if (!(isGetDisabled))
10271231         then true
10281232         else isManager(i))
10291233         then true
10301234         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
10311235         then true
10321236         else throwErr("exactly 1 payment are expected")]
10331237     if ((checks == checks))
10341238         then {
1035-            let $t03625836413 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1036-            let state = $t03625836413._1
1037-            let totalAmount = $t03625836413._2
1239+            let $t04304643201 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1240+            let state = $t04304643201._1
1241+            let totalAmount = $t04304643201._2
10381242             $Tuple2(state, totalAmount)
10391243             }
10401244         else throw("Strict value is not equal to itself.")
10411245     }
10421246 
10431247 
10441248 
10451249 @Callable(i)
1250+func refreshDLp () = {
1251+    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1252+    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1253+        then unit
1254+        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1255+    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1256+        then {
1257+            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1258+            let $t04372543789 = refreshDLpInternal(0, 0, 0)
1259+            let dLpUpdateActions = $t04372543789._1
1260+            let updatedDLp = $t04372543789._2
1261+            let actions = if ((dLp != updatedDLp))
1262+                then dLpUpdateActions
1263+                else throwErr("nothing to refresh")
1264+            $Tuple2(actions, toString(updatedDLp))
1265+            }
1266+        else throw("Strict value is not equal to itself.")
1267+    }
1268+
1269+
1270+
1271+@Callable(i)
10461272 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1047-    let poolConfig = gpc()
1048-    let amId = poolConfig[idxAmAsId]
1049-    let prId = poolConfig[idxPrAsId]
1050-    let lpId = poolConfig[idxLPAsId]
1273+    let amId = toBase58String(value(cfgAmountAssetId))
1274+    let prId = toBase58String(value(cfgPriceAssetId))
1275+    let lpId = toBase58String(value(cfgLpAssetId))
10511276     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
10521277     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
10531278     let D0 = getD(xp)
10541279     let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
10551280     let index = if ((outAssetId == amId))
10561281         then 0
10571282         else if ((outAssetId == prId))
10581283             then 1
10591284             else throw("invalid out asset id")
10601285     let newY = getYD(xp, index, D1)
10611286     let dy = (xp[index] - newY)
10621287     let totalGetRaw = max([0, toInt((dy - big1))])
1063-    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064-    let totalGet = $t03720337258._1
1065-    let feeAmount = $t03720337258._2
1288+    let $t04471944774 = takeFee(totalGetRaw, outFee)
1289+    let totalGet = $t04471944774._1
1290+    let feeAmount = $t04471944774._2
10661291     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
10671292     }
10681293 
10691294 
10701295 
10711296 @Callable(i)
10721297 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1073-    let poolConfig = gpc()
1074-    let amId = poolConfig[idxAmAsId]
1075-    let prId = poolConfig[idxPrAsId]
1076-    let lpId = poolConfig[idxLPAsId]
1298+    let amId = toBase58String(value(cfgAmountAssetId))
1299+    let prId = toBase58String(value(cfgPriceAssetId))
1300+    let lpId = toBase58String(value(cfgLpAssetId))
10771301     let amBalance = getAccBalance(amId)
10781302     let prBalance = getAccBalance(prId)
1079-    let $t03760337718 = {
1303+    let $t04514945264 = {
10801304         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
10811305         if ($isInstanceOf(@, "(Int, Int)"))
10821306             then @
10831307             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
10841308         }
1085-    let totalGet = $t03760337718._1
1086-    let feeAmount = $t03760337718._2
1309+    let totalGet = $t04514945264._1
1310+    let feeAmount = $t04514945264._2
10871311     let r = ego("", lpId, lpAssetAmount, this)
10881312     let outAmAmt = r._1
10891313     let outPrAmt = r._2
10901314     let sumOfGetAssets = (outAmAmt + outPrAmt)
10911315     let bonus = if ((sumOfGetAssets == 0))
10921316         then if ((totalGet == 0))
10931317             then 0
10941318             else throw("bonus calculation error")
10951319         else fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
10961320     $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
10971321     }
10981322 
10991323 
11001324 
11011325 @Callable(i)
11021326 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
11031327     let r = cg(i)
11041328     let outAmAmt = r._1
11051329     let outPrAmt = r._2
11061330     let pmtAmt = r._3
11071331     let pmtAssetId = r._4
11081332     let state = r._5
11091333     if ((noLessThenAmtAsset > outAmAmt))
11101334         then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
11111335         else if ((noLessThenPriceAsset > outPrAmt))
11121336             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
11131337             else {
1114-                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115-                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116-                    then state
1338+                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1339+                if ((currentDLp == currentDLp))
1340+                    then {
1341+                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1342+                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1343+                            then {
1344+                                let $t04643046511 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1345+                                let refreshDLpActions = $t04643046511._1
1346+                                let updatedDLp = $t04643046511._2
1347+                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1348+                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1349+                                    then (state ++ refreshDLpActions)
1350+                                    else throw("Strict value is not equal to itself.")
1351+                                }
1352+                            else throw("Strict value is not equal to itself.")
1353+                        }
11171354                     else throw("Strict value is not equal to itself.")
11181355                 }
11191356     }
11201357 
11211358 
11221359 
11231360 @Callable(i)
11241361 func unstakeAndGet (amount) = {
11251362     let checkPayments = if ((size(i.payments) != 0))
11261363         then throw("No pmnts expd")
11271364         else true
11281365     if ((checkPayments == checkPayments))
11291366         then {
1130-            let cfg = gpc()
11311367             let factoryCfg = gfc()
1132-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1368+            let lpAssetId = cfgLpAssetId
11331369             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1370+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11341371             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
11351372             if ((unstakeInv == unstakeInv))
11361373                 then {
11371374                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1375+                    let outAmAmt = r._1
1376+                    let outPrAmt = r._2
11381377                     let sts = parseIntValue(r._9)
11391378                     let state = r._10
11401379                     let v = if (if (igs())
11411380                         then true
11421381                         else (sts == PoolShutdown))
11431382                         then throw(("Blocked: " + toString(sts)))
11441383                         else true
11451384                     if ((v == v))
11461385                         then {
11471386                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11481387                             if ((burnA == burnA))
1149-                                then state
1388+                                then {
1389+                                    let $t04753547616 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1390+                                    let refreshDLpActions = $t04753547616._1
1391+                                    let updatedDLp = $t04753547616._2
1392+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1393+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1394+                                        then (state ++ refreshDLpActions)
1395+                                        else throw("Strict value is not equal to itself.")
1396+                                    }
11501397                                 else throw("Strict value is not equal to itself.")
11511398                             }
11521399                         else throw("Strict value is not equal to itself.")
11531400                     }
11541401                 else throw("Strict value is not equal to itself.")
11551402             }
11561403         else throw("Strict value is not equal to itself.")
11571404     }
11581405 
11591406 
11601407 
11611408 @Callable(i)
11621409 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
11631410     let isGetDisabled = if (igs())
11641411         then true
11651412         else (cfgPoolStatus == PoolShutdown)
11661413     let checks = [if (!(isGetDisabled))
11671414         then true
11681415         else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
11691416         then true
11701417         else throw("no payments are expected")]
11711418     if ((checks == checks))
11721419         then {
1420+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11731421             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11741422             if ((unstakeInv == unstakeInv))
11751423                 then {
11761424                     let res = ego(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
11771425                     let outAmAmt = res._1
11781426                     let outPrAmt = res._2
11791427                     let state = res._10
11801428                     let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
11811429                         then true
11821430                         else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
11831431                         then true
11841432                         else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
11851433                     if ((checkAmounts == checkAmounts))
11861434                         then {
11871435                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11881436                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1189-                                then state
1437+                                then {
1438+                                    let $t04886448945 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1439+                                    let refreshDLpActions = $t04886448945._1
1440+                                    let updatedDLp = $t04886448945._2
1441+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1442+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1443+                                        then (state ++ refreshDLpActions)
1444+                                        else throw("Strict value is not equal to itself.")
1445+                                    }
11901446                                 else throw("Strict value is not equal to itself.")
11911447                             }
11921448                         else throw("Strict value is not equal to itself.")
11931449                     }
11941450                 else throw("Strict value is not equal to itself.")
11951451             }
11961452         else throw("Strict value is not equal to itself.")
11971453     }
11981454 
11991455 
12001456 
12011457 @Callable(i)
12021458 func unstakeAndGetOneTknV2 (unstakeAmount,outAssetId,minOutAmount) = {
12031459     let isPoolOneTokenOperationsDisabled = {
12041460         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
12051461         if ($isInstanceOf(@, "Boolean"))
12061462             then @
12071463             else throw(($getType(@) + " couldn't be cast to Boolean"))
12081464         }
12091465     let isGetDisabled = if (if (igs())
12101466         then true
12111467         else (cfgPoolStatus == PoolShutdown))
12121468         then true
12131469         else isPoolOneTokenOperationsDisabled
12141470     let checks = [if (if (!(isGetDisabled))
12151471         then true
12161472         else isManager(i))
12171473         then true
12181474         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
12191475         then true
12201476         else throwErr("no payments are expected")]
12211477     if ((checks == checks))
12221478         then {
1223-            let cfg = gpc()
12241479             let factoryCfg = gfc()
1225-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1480+            let lpAssetId = cfgLpAssetId
12261481             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
12271482             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
12281483             if ((unstakeInv == unstakeInv))
12291484                 then {
1230-                    let $t04155641744 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1231-                    let state = $t04155641744._1
1232-                    let totalAmount = $t04155641744._2
1485+                    let $t04984050028 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1486+                    let state = $t04984050028._1
1487+                    let totalAmount = $t04984050028._2
12331488                     $Tuple2(state, totalAmount)
12341489                     }
12351490                 else throw("Strict value is not equal to itself.")
12361491             }
12371492         else throw("Strict value is not equal to itself.")
12381493     }
12391494 
12401495 
12411496 
12421497 @Callable(i)
12431498 func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1244-    let poolConfig = gpc()
1245-    let amId = poolConfig[idxAmAsId]
1246-    let prId = poolConfig[idxPrAsId]
1247-    let lpId = poolConfig[idxLPAsId]
1248-    let $t04200342106 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1249-    let lpAmount = $t04200342106._1
1250-    let state = $t04200342106._2
1251-    let feeAmount = $t04200342106._3
1252-    let bonus = $t04200342106._4
1499+    let $t05015650259 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1500+    let lpAmount = $t05015650259._1
1501+    let state = $t05015650259._2
1502+    let feeAmount = $t05015650259._3
1503+    let bonus = $t05015650259._4
12531504     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12541505     }
12551506 
12561507 
12571508 
12581509 @Callable(i)
12591510 func putOneTknV2WithoutTakeFeeREADONLY (paymentAmountRaw,paymentAssetId) = {
1260-    let poolConfig = gpc()
1261-    let amId = poolConfig[idxAmAsId]
1262-    let prId = poolConfig[idxPrAsId]
1263-    let lpId = poolConfig[idxLPAsId]
1264-    let $t04238542489 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1265-    let lpAmount = $t04238542489._1
1266-    let state = $t04238542489._2
1267-    let feeAmount = $t04238542489._3
1268-    let bonus = $t04238542489._4
1511+    let $t05040750511 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1512+    let lpAmount = $t05040750511._1
1513+    let state = $t05040750511._2
1514+    let feeAmount = $t05040750511._3
1515+    let bonus = $t05040750511._4
12691516     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12701517     }
12711518 
12721519 
12731520 
12741521 @Callable(i)
12751522 func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
12761523     then throw("denied")
12771524     else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
12781525 
12791526 
12801527 
12811528 @Callable(i)
12821529 func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
12831530     then pd
12841531     else [StringEntry(k, v)]
12851532 
12861533 
12871534 
12881535 @Callable(i)
12891536 func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
12901537     then pd
12911538     else [IntegerEntry(k, v)]
12921539 
12931540 
12941541 
12951542 @Callable(i)
12961543 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
12971544 
12981545 
12991546 
13001547 @Callable(i)
13011548 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
13021549 
13031550 
13041551 
13051552 @Callable(i)
13061553 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
13071554     let pr = calcPrices(amAmt, prAmt, lpAmt)
13081555     $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
13091556     }
13101557 
13111558 
13121559 
13131560 @Callable(i)
13141561 func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
13151562 
13161563 
13171564 
13181565 @Callable(i)
13191566 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
13201567 
13211568 
13221569 
13231570 @Callable(i)
13241571 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
13251572 
13261573 
13271574 
13281575 @Callable(i)
13291576 func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, true, false, 0, ""))
13301577 
13311578 
13321579 
13331580 @Callable(i)
13341581 func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
13351582     let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
13361583     $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
13371584     }
13381585 
13391586 
13401587 @Verifier(tx)
13411588 func verify () = {
13421589     let targetPublicKey =     match m() {
13431590         case pk: ByteVector => 
13441591             pk
13451592         case _: Unit => 
13461593             tx.senderPublicKey
13471594         case _ => 
13481595             throw("Match error")
13491596     }
13501597     match tx {
13511598         case order: Order => 
13521599             let matcherPub = mp()
1353-            let orderValid = moa(order)
1600+            let orderValid = validateMatcherOrderAllowed(order)
13541601             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
13551602             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
13561603             if (if (if (orderValid)
13571604                 then senderValid
13581605                 else false)
13591606                 then matcherValid
13601607                 else false)
13611608                 then true
13621609                 else toe(orderValid, senderValid, matcherValid)
13631610         case s: SetScriptTransaction => 
13641611             let newHash = blake2b256(value(s.script))
13651612             let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
13661613             let currentHash = scriptHash(this)
13671614             if (if ((allowedHash == newHash))
13681615                 then (currentHash != newHash)
13691616                 else false)
13701617                 then true
13711618                 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
13721619         case _ => 
13731620             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
13741621     }
13751622     }
13761623 
github/deemru/w8io/169f3d6 
187.35 ms ◑