tx · HdufFhuuc2qNzHT8hAg5pUXdAiLX94Frnc2fr2MWs54A

3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni:  -0.03700000 Waves

2023.01.19 12:46 [2411646] smart account 3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HdufFhuuc2qNzHT8hAg5pUXdAiLX94Frnc2fr2MWs54A",
    "fee": 3700000,
    "feeAssetId": null,
    "timestamp": 1674121638433,
    "version": 1,
    "sender": "3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni",
    "senderPublicKey": "BRyVaCURUMe7ssUbXucteig1g44bGwWirJQzugKahUQ1",
    "proofs": [
        "34Dji3z6mgA9JF5rk692Mhy6TK3rcpHZp9UMj6QdUpgM6Efg258LED3nmcVtvVXVeD6pCDZWi6UqxQerYXyin3YY"
    ],
    "script": "base64:BgKwKQgCEgMKAQgSAwoBCBIAEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIAEgQKAggBEgQKAggBEgQKAgEBEgMKAQESBQoDAQEBEgUKAwEIARIECgIBCBIECgIBCBIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIIgZzY2FsZTgiDHNjYWxlOEJpZ0ludCIHc2NhbGUxOCIKemVyb0JpZ0ludCIEYmlnMCIEYmlnMSIEYmlnMiIEYmlnMyIEYmlnNCIKc2xpcHBhZ2U0RCILd2F2ZXNTdHJpbmciBUFtdWx0IgVEY29udiIDU0VQIgVFTVBUWSIKUG9vbEFjdGl2ZSIKUG9vbFB1dERpcyIOUG9vbE1hdGNoZXJEaXMiDFBvb2xTaHV0ZG93biIOaWR4UG9vbEFkZHJlc3MiCWlkeFBvb2xTdCIJaWR4TFBBc0lkIglpZHhBbUFzSWQiCWlkeFByQXNJZCILaWR4QW10QXNEY20iDWlkeFByaWNlQXNEY20iC2lkeElBbXRBc0lkIg1pZHhJUHJpY2VBc0lkIg9pZHhGYWN0U3Rha0NudHIiEmlkeEZhY3RvcnlSZXN0Q250ciIQaWR4RmFjdFNsaXBwQ250ciIRaWR4RmFjdEd3eFJld0NudHIiCmZlZURlZmF1bHQiAnQxIgdvcmlnVmFsIg1vcmlnU2NhbGVNdWx0IgJmMSIDdmFsIg9yZXN1bHRTY2FsZU11bHQiDGZyb21YMThSb3VuZCIFcm91bmQiAnQyIgJmMiICdHMiA2FtdCIIcmVzU2NhbGUiCGN1clNjYWxlIgNhYnMiCWFic0JpZ0ludCICZmMiA21wayIEcG1wayICcGwiAnBoIgFoIgF0IgNwYXUiAnVhIgR0eElkIgNnYXUiAmFhIgJwYSIDYW1wIgNhZGEiBmtleUZlZSIDZmVlIgZrZXlETHAiFWtleURMcFJlZnJlc2hlZEhlaWdodCISa2V5RExwUmVmcmVzaERlbGF5IhZkTHBSZWZyZXNoRGVsYXlEZWZhdWx0Ig9kTHBSZWZyZXNoRGVsYXkiBGZjZmciBG10cGsiAnBjIgZpQW10QXMiBWlQckFzIgNtYmEiBWJBU3RyIgNhcHMiHGtleUFsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2giFmtleUZlZUNvbGxlY3RvckFkZHJlc3MiA3RvZSIDb3JWIgZzZW5kclYiBm1hdGNoViIEc3RyZiIEYWRkciIDa2V5IgRpbnRmIgh0aHJvd0VyciIDbXNnIgZmbXRFcnIiA2ZjYSIFaW5GZWUiAUAiBm91dEZlZSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiDHBhcnNlQXNzZXRJZCIFaW5wdXQiD2Fzc2V0SWRUb1N0cmluZyIPcGFyc2VQb29sQ29uZmlnIgpwb29sQ29uZmlnIhBwb29sQ29uZmlnUGFyc2VkIgskdDA3NzQyNzk3MSIOY2ZnUG9vbEFkZHJlc3MiDWNmZ1Bvb2xTdGF0dXMiDGNmZ0xwQXNzZXRJZCIQY2ZnQW1vdW50QXNzZXRJZCIPY2ZnUHJpY2VBc3NldElkIhZjZmdBbW91bnRBc3NldERlY2ltYWxzIhVjZmdQcmljZUFzc2V0RGVjaW1hbHMiEmNmZ0luQW1vdW50QXNzZWRJZCIRY2ZnSW5QcmljZUFzc2V0SWQiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IgxyZXN0Q29udHJhY3QiEWRhdGFQdXRBY3Rpb25JbmZvIg1pbkFtdEFzc2V0QW10Ig9pblByaWNlQXNzZXRBbXQiCG91dExwQW10IgVwcmljZSIKc2xpcEJ5VXNlciIMc2xpcHBhZ2VSZWFsIgh0eEhlaWdodCILdHhUaW1lc3RhbXAiDHNsaXBhZ2VBbUFtdCIMc2xpcGFnZVByQW10IhFkYXRhR2V0QWN0aW9uSW5mbyIOb3V0QW10QXNzZXRBbXQiEG91dFByaWNlQXNzZXRBbXQiB2luTHBBbXQiDWdldEFjY0JhbGFuY2UiB2Fzc2V0SWQiBGNwYmkiCHByQW10WDE4IghhbUFtdFgxOCIFY3BiaXIiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIIYW10QXNEY20iB3ByQXNEY20iCHByaWNlWDE4IghscEFtdFgxOCINbHBQckluQW1Bc1gxOCINbHBQckluUHJBc1gxOCIPY2FsY3VsYXRlUHJpY2VzIgFwIgd0YWtlRmVlIgZhbW91bnQiCWZlZUFtb3VudCIDZWdvIgZ0eElkNTgiCnBtdEFzc2V0SWQiCHBtdExwQW10Igt1c2VyQWRkcmVzcyIEbHBJZCIEYW1JZCIEcHJJZCIFYW1EY20iBXByRGNtIgNzdHMiB2xwRW1pc3MiCWFtQmFsYW5jZSIMYW1CYWxhbmNlWDE4IglwckJhbGFuY2UiDHByQmFsYW5jZVgxOCILY3VyUHJpY2VYMTgiCGN1clByaWNlIgtwbXRMcEFtdFgxOCIKbHBFbWlzc1gxOCILb3V0QW1BbXRYMTgiC291dFByQW10WDE4IghvdXRBbUFtdCIIb3V0UHJBbXQiBXN0YXRlIgNlcG8iB2luQW1BbXQiBmluQW1JZCIHaW5QckFtdCIGaW5QcklkIgZpc0V2YWwiBmVtaXRMcCIKaXNPbmVBc3NldCIQdmFsaWRhdGVTbGlwcGFnZSIGcG10QW10IgVwbXRJZCIHYW1JZFN0ciIHcHJJZFN0ciIJaW5BbUlkU3RyIglpblBySWRTdHIiBmFtdERjbSIIcHJpY2VEY20iBGxwRW0iD2luQW1Bc3NldEFtdFgxOCIPaW5QckFzc2V0QW10WDE4Igx1c2VyUHJpY2VYMTgiAXIiC3NsaXBwYWdlWDE4Ig9zbGlwcGFnZVJlYWxYMTgiDWxwRW1pc3Npb25YMTgiCnByVmlhQW1YMTgiCmFtVmlhUHJYMTgiDGV4cGVjdGVkQW10cyIRZXhwQW10QXNzZXRBbXRYMTgiE2V4cFByaWNlQXNzZXRBbXRYMTgiCWNhbGNMcEFtdCIOY2FsY0FtQXNzZXRQbXQiDmNhbGNQckFzc2V0UG10IgxzbGlwcGFnZUNhbGMiCWVtaXRMcEFtdCIGYW1EaWZmIgZwckRpZmYiDSR0MDE4NjI3MTg5NzIiCndyaXRlQW1BbXQiCndyaXRlUHJBbXQiC2NvbW1vblN0YXRlIgRnZXREIgJ4cCIDeHAwIgN4cDEiAXMiAWEiA2FubiILeHAwX3hwMV9uX24iBWFubl9zIgVhbm5fMSIJY2FsY0ROZXh0IgFkIgJkZCIDZGRkIgJkcCIEY2FsYyIDYWNjIgFpIgVkTmV4dCIIZERpZmZSYXciBWREaWZmIgNhcnIiDSR0MDIwOTAwMjA5NDgiAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVmb3VuZCIHZ2V0RE9sZCIBbiIKYVByZWNpc2lvbiIQYW5uX3NfYVByZWNpc2lvbiIOYW5uX2FQcmVjaXNpb24iAm4xIgNjdXIiDSR0MDIxNTc3MjE1OTciDSR0MDIyMDE4MjIwNjUiBWdldFlEIgFEIgF4IgFjIgFiIg0kdDAyMjU2NTIyNTg1IgF5IgV5TmV4dCIFeURpZmYiDSR0MDIyODkyMjI5MzkiB2NhbGNETHAiDWFtb3VudEJhbGFuY2UiDHByaWNlQmFsYW5jZSIKbHBFbWlzc2lvbiIKdXBkYXRlZERMcCIOY2FsY0N1cnJlbnRETHAiEGFtb3VudEFzc2V0RGVsdGEiD3ByaWNlQXNzZXREZWx0YSIUbHBBc3NldEVtaXNzaW9uRGVsdGEiEmFtb3VudEFzc2V0QmFsYW5jZSIRcHJpY2VBc3NldEJhbGFuY2UiD2xwQXNzZXRFbWlzc2lvbiIKY3VycmVudERMcCIScmVmcmVzaERMcEludGVybmFsIhdhbW91bnRBc3NldEJhbGFuY2VEZWx0YSIWcHJpY2VBc3NldEJhbGFuY2VEZWx0YSIHYWN0aW9ucyISdmFsaWRhdGVVcGRhdGVkRExwIgZvbGRETHAiG3ZhbGlkYXRlTWF0Y2hlck9yZGVyQWxsb3dlZCIFb3JkZXIiEWFtb3VudEFzc2V0QW1vdW50IhBwcmljZUFzc2V0QW1vdW50Ig0kdDAyNDg3ODI1MDkwIgNkTHAiDSR0MDI1NDIwMjU1MjAiDXVudXNlZEFjdGlvbnMiBmRMcE5ldyIMaXNPcmRlclZhbGlkIgJjZyIDcG10IgJjcCIGY2FsbGVyIgdhbUFzUG10IgdwckFzUG10Ig1jYWxjUHV0T25lVGtuIglwbXRBbXRSYXciC3dpdGhUYWtlRmVlIg1jaGVjaEVtaXNzaW9uIg0kdDAyNzc4NjI4MjQ4IgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCINJHQwMjgyNTQyODQzMCILYW1BbW91bnRSYXciC3ByQW1vdW50UmF3Ig0kdDAyODQzNDI4Njg4IghhbUFtb3VudCIIcHJBbW91bnQiDGFtQmFsYW5jZU5ldyIMcHJCYWxhbmNlTmV3IgZjaGVja0QiCGxwQW1vdW50Ig5wb29sUHJvcG9ydGlvbiIPYW1vdW50QXNzZXRQYXJ0Ig5wcmljZUFzc2V0UGFydCIJbHBBbXRCb3RoIgVib251cyITZ2V0T25lVGtuVjJJbnRlcm5hbCIKb3V0QXNzZXRJZCIMbWluT3V0QW1vdW50IghwYXltZW50cyIMb3JpZ2luQ2FsbGVyIg10cmFuc2FjdGlvbklkIgphbURlY2ltYWxzIgpwckRlY2ltYWxzIgpwb29sU3RhdHVzIg0kdDAzMDczODMwODQ5Igh0b3RhbEdldCILdG90YWxBbW91bnQiDSR0MDMxMDM5MzEzNDYiBW91dEFtIgVvdXRQciIIY3VyUHJYMTgiBWN1clByIhFvdXRBc3NldElkT3JXYXZlcyIQc2VuZEZlZVRvTWF0Y2hlciIEYnVybiINJHQwMzIxMzEzMjQ4MSIQZmVlQW1vdW50Rm9yQ2FsYyIQb3V0SW5BbW91bnRBc3NldCINJHQwMzI0ODQzMjU5MiIRcmVmcmVzaERMcEFjdGlvbnMiEWlzVXBkYXRlZERMcFZhbGlkIgFtIgckbWF0Y2gwIgJwbSICcGQiCWlzTWFuYWdlciICcGsiAm1tIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSICY20iA2hwbSIDY3BtIgRzbGlwIglhdXRvU3Rha2UiB2ZhY3RDZmciC3N0YWtpbmdDbnRyIghzbGlwQ250ciIKYW1Bc3NldFBtdCIKcHJBc3NldFBtdCIBZSIJbHBBc3NldElkIgJlbCIGbGVnYWN5IgJzYSICc3AiCGxwVHJuc2ZyIgJzcyINJHQwMzY3NDEzNjg4MyIFY2hlY2siFGxwQXNzZXRFbWlzc2lvbkFmdGVyIiBpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZCINaXNQdXREaXNhYmxlZCIGY2hlY2tzIg0kdDAzODUyNDM4NjgyIgdlc3RpbUxQIg0kdDAzOTQ5NzM5ODQ2IhRwYXltZW50SW5BbW91bnRBc3NldCINJHQwMzk4NDkzOTk1NyIHbWF4U2xwZyIGZXN0UHV0Ig0kdDA0MDk4NzQxMDUyIglvdXRBbXRBbXQiDSR0MDQyMjI1NDIzMDciDWlzR2V0RGlzYWJsZWQiDSR0MDQyOTI1NDMwODAiGGxhc3RSZWZyZXNoZWRCbG9ja0hlaWdodCIdY2hlY2tMYXN0UmVmcmVzaGVkQmxvY2tIZWlnaHQiDSR0MDQzNjA0NDM2NjgiEGRMcFVwZGF0ZUFjdGlvbnMiDWxwQXNzZXRBbW91bnQiBWluZGV4IgRuZXdZIgJkeSILdG90YWxHZXRSYXciDSR0MDQ0NTk4NDQ2NTMiDSR0MDQ1MDI4NDUxNDMiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINJHQwNDYzMDk0NjM5MCINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDSR0MDQ3NDE0NDc0OTUiDXVuc3Rha2VBbW91bnQiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIDcmVzIgxjaGVja0Ftb3VudHMiDSR0MDQ4NzQzNDg4MjQiDSR0MDQ5NzE5NDk5MDciEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIg0kdDA1MDAzNTUwMTM4Ig0kdDA1MDI4NjUwMzkwIghhbXRBc1N0ciIHcHJBc1N0ciIBayICcHIiDHJlc1NjYWxlTXVsdCIHdXNyQWRkciIHcG10QXNJZCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2iBAQABYQCAwtcvAAFiCQC2AgEAgMLXLwABYwkAtgIBAICAkLu61q3wDQABZAkAtgIBAAAAAWUJALYCAQAAAAFmCQC2AgEAAQABZwkAtgIBAAIAAWgJALYCAQADAAFpCQC2AgEABAABagkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWsCBVdBVkVTAAFsAgMxMDAAAW0CATEAAW4CAl9fAAFvAgAAAXAAAQABcQACAAFyAAMAAXMABAABdAABAAF1AAIAAXYAAwABdwAEAAF4AAUAAXkABgABegAHAAFBAAgAAUIACQABQwABAAFEAAYAAUUABwABRgAKAAFHCQBrAwAKBQFhAJBOAQFIAgFJAUoJALwCAwkAtgIBBQFJBQFjCQC2AgEFAUoBAUsCAUwBTQkAoAMBCQC8AgMFAUwJALYCAQUBTQUBYwEBTgMBTAFNAU8JAKADAQkAvQIEBQFMCQC2AgEFAU0FAWMFAU8BAVACAUkBSgkAvAIDBQFJBQFjCQC2AgEFAUoBAVECAUwBTQkAvAIDBQFMCQC2AgEFAU0FAWMBAVIDAVMBVAFVCQBrAwUBUwUBVAUBVQEBVgEBTAMJAL8CAgUBZAUBTAkAvgIBBQFMBQFMAQFXAQFMAwkAvwICBQFkBQFMCQC+AgEFAUwFAUwBAVgAAhMlc19fZmFjdG9yeUNvbnRyYWN0AQFZAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBAVoAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAmFhAAIRJXMlc19fcHJpY2VfX2xhc3QBAmFiAgJhYwJhZAkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAmFjCQDMCAIJAKQDAQUCYWQFA25pbAUBbgECYWUCAmFmAmFnCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUCYWYCAl9fBQJhZwECYWgCAmFmAmFnCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUCYWYCAl9fBQJhZwECYWkAAg8lc19fYW1vdW50QXNzZXQBAmFqAAIOJXNfX3ByaWNlQXNzZXQBAmFrAAIHJXNfX2FtcAECYWwAAg0lc19fYWRkb25BZGRyAAJhbQIHJXNfX2ZlZQACYW4JAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUCYW0FAUcAAmFvCQC5CQIJAMwIAgICJXMJAMwIAgIDZExwBQNuaWwFAW4AAmFwCQC5CQIJAMwIAgICJXMJAMwIAgISZExwUmVmcmVzaGVkSGVpZ2h0BQNuaWwFAW4AAmFxCQC5CQIJAMwIAgICJXMJAMwIAgIPcmVmcmVzaERMcERlbGF5BQNuaWwFAW4AAmFyAAEAAmFzCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAmFxBQJhcgECYXQAAhElc19fZmFjdG9yeUNvbmZpZwECYXUAAhglcyVzX19tYXRjaGVyX19wdWJsaWNLZXkBAmF2AgJhdwJheAkArAICCQCsAgIJAKwCAgkArAICAgglZCVkJXNfXwUCYXcCAl9fBQJheAIIX19jb25maWcBAmF5AQJhegkArAICAiglcyVzJXNfX21hcHBpbmdzX19iYXNlQXNzZXQyaW50ZXJuYWxJZF9fBQJhegECYUEAAgwlc19fc2h1dGRvd24BAmFCAAIdJXNfX2FsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gBAmFDAAIXJXNfX2ZlZUNvbGxlY3RvckFkZHJlc3MBAmFEAwJhRQJhRgJhRwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhFGYWlsZWQ6IG9yZFZhbGlkPQkApQMBBQJhRQILIHNuZHJWYWxpZD0JAKUDAQUCYUYCDCBtdGNoclZhbGlkPQkApQMBBQJhRwECYUgCAmFJAmFKCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYUkFAmFKCQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmFJCQDMCAICAS4JAMwIAgUCYUoJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAECYUsCAmFJAmFKCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUCYUkFAmFKCQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmFJCQDMCAICAS4JAMwIAgUCYUoJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAECYUwBAmFNCQACAQkAuQkCCQDMCAICD2xwX3N0YWJsZS5yaWRlOgkAzAgCBQJhTQUDbmlsAgEgAQJhTgECYU0JALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYU0FA25pbAIBIAACYU8JARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJhSAIFBHRoaXMJAQFYAAACYVAKAAJhUQkA/AcEBQJhTwIQZ2V0SW5GZWVSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFRAgNJbnQFAmFRCQACAQkArAICCQADAQUCYVECGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAACYVIKAAJhUQkA/AcEBQJhTwIRZ2V0T3V0RmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhUQIDSW50BQJhUQkAAgEJAKwCAgkAAwEFAmFRAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFTCQECYUgCBQR0aGlzCQECYWsAAQJhVAAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYU8JAQJhQQAHAQJhVQAJANkEAQkBAmFIAgUCYU8JAQJhdQAAAmFWCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYUgCBQJhTwkBAmFDAAECYVcABAJhWAkBAmFIAgUEdGhpcwkBAmFpAAQCYVkJAQJhSAIFBHRoaXMJAQJhagAEAmFaCQECYUsCBQJhTwkBAmF5AQUCYVkEAmF3CQECYUsCBQJhTwkBAmF5AQUCYVgJALUJAgkBAmFIAgUCYU8JAQJhdgIJAKQDAQUCYXcJAKQDAQUCYVoFAW4BAmJhAQJiYgMJAAACBQJiYgUBawUEdW5pdAkA2QQBBQJiYgECYmMBAmJiAwkAAAIFAmJiBQR1bml0BQFrCQDYBAEJAQV2YWx1ZQEFAmJiAQJiZAECYmUJAJsKCQkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJiZQUBdAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJlBQF1CQDZBAEJAJEDAgUCYmUFAXYJAQJiYQEJAJEDAgUCYmUFAXcJAQJiYQEJAJEDAgUCYmUFAXgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiZQUBeQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJlBQF6CQDZBAEJAJEDAgUCYmUFAUEJANkEAQkAkQMCBQJiZQUBQgACYmYJAQJiZAEJAQJhVwAAAmJnBQJiZgACYmgIBQJiZwJfMQACYmkIBQJiZwJfMgACYmoIBQJiZwJfMwACYmsIBQJiZwJfNAACYmwIBQJiZwJfNQACYm0IBQJiZwJfNgACYm4IBQJiZwJfNwACYm8IBQJiZwJfOAACYnAIBQJiZwJfOQECYnEACQC1CQIJAQJhSAIFAmFPCQECYXQABQFuAAJicgkBAmJxAAACYnMJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJyBQFDAiBJbnZhbGlkIHN0YWtpbmcgY29udHJhY3QgYWRkcmVzcwACYnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJyBQFFAiBJbnZhbGlkIHNsaXBhZ2UgY29udHJhY3QgYWRkcmVzcwACYnUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJyBQFGAhxJbnZhbGlkIGd3eCBjb250cmFjdCBhZGRyZXNzAAJidgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYnIFAUQCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MBAmJ3CgJieAJieQJiegJiQQJiQgJiQwJiRAJiRQJiRgJiRwkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYngJAMwIAgkApAMBBQJieQkAzAgCCQCkAwEFAmJ6CQDMCAIJAKQDAQUCYkEJAMwIAgkApAMBBQJiQgkAzAgCCQCkAwEFAmJDCQDMCAIJAKQDAQUCYkQJAMwIAgkApAMBBQJiRQkAzAgCCQCkAwEFAmJGCQDMCAIJAKQDAQUCYkcFA25pbAUBbgECYkgGAmJJAmJKAmJLAmJBAmJEAmJFCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYkkJAMwIAgkApAMBBQJiSgkAzAgCCQCkAwEFAmJLCQDMCAIJAKQDAQUCYkEJAMwIAgkApAMBBQJiRAkAzAgCCQCkAwEFAmJFBQNuaWwFAW4BAmJMAQJiTQMJAAACBQJiTQIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYk0BAmJOAgJiTwJiUAkAvAIDBQJiTwUBYwUCYlABAmJRAwJiTwJiUAFPCQC9AgQFAmJPBQFjBQJiUAUBTwECYlIDAmJTAmJUAmJVBAJiVgkAvAIDCQC4AgIFAmJTBQJiVAUBYgUCYlQEAmJXCQC/AgIJALgCAgUCYlUJAQFWAQUCYlYFAWQDCQEBIQEFAmJXCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFAmJWCQCUCgIFAmJXCQCZAwEJAMwIAgUCYlMJAMwIAgUCYlQFA25pbAECYlgDAmJZAmJaAmNhBAJiVgkAvAIDBQJiWgUBYgUCYlkEAmNiCQC/AgIFAmNhBQJiVgMDBQJjYgYJAL8CAgUCYloFAmJZCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJiWgIBIAkApgMBBQJiWQIBIAkApgMBBQJiVgIBIAkApgMBBQJjYQUCY2IBAmNjBAJjZAJjZQJjZgJjZwQCY2gJAQFIAgUCY2YFAmNkBAJjaQkBAUgCBQJjZwUCY2UJAQJiTgIFAmNpBQJjaAECY2oDAmNmAmNnAmNrBAJjbAUCYm0EAmNtBQJibgQCY24JAQJjYwQFAmNsBQJjbQUCY2YFAmNnBAJiUAkBAUgCBQJjZgUCY2wEAmJPCQEBSAIFAmNnBQJjbQQCY28JAQFIAgUCY2sFAWEEAmNwCQECYk4CBQJiUAUCY28EAmNxCQECYk4CBQJiTwUCY28JAMwIAgUCY24JAMwIAgUCY3AJAMwIAgUCY3EFA25pbAECY3IDAmNmAmNnAmNrBAJjcwkBAmNqAwUCY2YFAmNnBQJjawkAzAgCCQEBSwIJAJEDAgUCY3MAAAUBYQkAzAgCCQEBSwIJAJEDAgUCY3MAAQUBYQkAzAgCCQEBSwIJAJEDAgUCY3MAAgUBYQUDbmlsAQJjdAICY3UCYW4EAmN2AwkAAAIFAmFuAAAAAAkAawMFAmN1BQJhbgUBYQkAlAoCCQBlAgUCY3UFAmN2BQJjdgECY3cEAmN4AmN5AmN6AmNBBAJjQgUCYmoEAmNDCQDYBAEJAQV2YWx1ZQEFAmJrBAJjRAkA2AQBCQEFdmFsdWUBBQJibAQCY0UFAmJtBAJjRgUCYm4EAmNHCQCkAwEFAmJpBAJjSAgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQJjQgILV3JvbmcgTFAgaWQIcXVhbnRpdHkDCQECIT0CCQDYBAEFAmNCBQJjeQkAAgECD1dyb25nIHBtdCBhc3NldAQCY0kJAQJiTAEFAmNDBAJjSgkBAUgCBQJjSQUCY0UEAmNLCQECYkwBBQJjRAQCY0wJAQFIAgUCY0sFAmNGBAJjTQkBAmJOAgUCY0wFAmNKBAJjTgkBAUsCBQJjTQUBYQQCY08JAQFIAgUCY3oFAWEEAmNQCQEBSAIFAmNIBQFhBAJjUQkAvAIDBQJjSgUCY08FAmNQBAJjUgkAvAIDBQJjTAUCY08FAmNQBAJjUwkBAU4DBQJjUQUCY0UFBUZMT09SBAJjVAkBAU4DBQJjUgUCY0YFBUZMT09SBAJjVQMJAAACBQJjeAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCY0EFAmNTAwkAAAIFAmNDAgVXQVZFUwUEdW5pdAkA2QQBBQJjQwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJjQQUCY1QDCQAAAgUCY0QCBVdBVkVTBQR1bml0CQDZBAEFAmNECQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhaAIJAKUIAQUCY0EFAmN4CQECYkgGBQJjUwUCY1QFAmN6BQJjTgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFhAAUCY04JAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNOBQNuaWwJAJwKCgUCY1MFAmNUBQJjQwUCY0QFAmNJBQJjSwUCY0gFAmNNBQJjRwUCY1UBAmNWDQJjeAJiVQJjVwJjWAJjWQJjWgJjQQJkYQJkYgJkYwJkZAJkZQJkZgQCY0IFAmJqBAJkZwkA2AQBCQEFdmFsdWUBBQJiawQCZGgJANgEAQkBBXZhbHVlAQUCYmwEAmRpBQJibwQCZGoFAmJwBAJkawUCYm0EAmRsBQJibgQCY0cJAKQDAQUCYmkEAmRtCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNCAghXciBscCBhcwhxdWFudGl0eQQCY0kDBQJkYQkBAmJMAQUCZGcDAwUCZGMJAAACBQJkZgUCZGcHCQBlAgkBAmJMAQUCZGcFAmRlAwUCZGMJAQJiTAEFAmRnCQBlAgkBAmJMAQUCZGcFAmNXBAJjSwMFAmRhCQECYkwBBQJkaAMDBQJkYwkAAAIFAmRmBQJkaAcJAGUCCQECYkwBBQJkaAUCZGUDBQJkYwkBAmJMAQUCZGgJAGUCCQECYkwBBQJkaAUCY1kEAmRuCQEBSAIFAmNXBQJkawQCZG8JAQFIAgUCY1kFAmRsBAJkcAkBAmJOAgUCZG8FAmRuBAJjSgkBAUgCBQJjSQUCZGsEAmNMCQEBSAIFAmNLBQJkbAQCZHEDCQAAAgUCZG0AAAQCY00FAWQEAmRyBQFkBAJjbwkAdgYJALkCAgUCZG4FAmRvAAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEBSwIFAmNvBQFhCQEBSwIFAmRuBQJkawkBAUsCBQJkbwUCZGwJAQJiTgIJALcCAgUCY0wFAmRvCQC3AgIFAmNKBQJkbgUCZHIEAmNNCQECYk4CBQJjTAUCY0oEAmRzCQC8AgMJAQFWAQkAuAICBQJjTQUCZHAFAWMFAmNNBAJkcgkBAUgCBQJiVQUBYQMDAwUCZGQJAQIhPQIFAmNNBQFkBwkAvwICBQJkcwUCZHIHCQACAQkArAICCQCsAgIJAKwCAgIPUHJpY2Ugc2xpcHBhZ2UgCQCmAwEFAmRzAgMgPiAJAKYDAQUCZHIEAmR0CQEBSAIFAmRtBQFhBAJkdQkAvQIEBQJkbgkBAmJRAwUCY0wFAmNKBQdDRUlMSU5HBQFjBQdDRUlMSU5HBAJkdgkAvQIEBQJkbwUBYwkBAmJRAwUCY0wFAmNKBQVGTE9PUgUHQ0VJTElORwQCZHcDCQC/AgIFAmR1BQJkbwkAlAoCBQJkdgUCZG8JAJQKAgUCZG4FAmR1BAJkeAgFAmR3Al8xBAJkeQgFAmR3Al8yBAJjbwkAvQIEBQJkdAUCZHkFAmNMBQVGTE9PUgkAlwoFCQBlAgkBAU4DBQJjbwUBYQUFRkxPT1IAZAkBAU4DBQJkeAUCZGsFB0NFSUxJTkcJAQFOAwUCZHkFAmRsBQdDRUlMSU5HBQJjTQUCZHIEAmR6CAUCZHECXzEEAmRBCAUCZHECXzIEAmRCCAUCZHECXzMEAmNOCQEBSwIIBQJkcQJfNAUBYQQCZEMJAQFLAggFAmRxAl81BQFhAwkAZwIAAAUCZHoJAAIBAgdMUCA8PSAwBAJkRAMJAQEhAQUCZGIAAAUCZHoEAmRFCQBlAgUCY1cFAmRBBAJkRgkAZQIFAmNZBQJkQgQCZEcDAwUCZGMJAAACBQJkZgUCZGcHCQCUCgIFAmRlAAADAwUCZGMJAAACBQJkZgUCZGgHCQCUCgIAAAUCZGUJAJQKAgUCZEEFAmRCBAJkSAgFAmRHAl8xBAJkSQgFAmRHAl8yBAJkSgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFhAAUCY04JAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNOCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZQIFAmNBBQJjeAkBAmJ3CgUCZEgFAmRJBQJkRAUCY04FAmJVBQJkQwUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZEUFAmRGBQNuaWwJAJ8KDQUCZHoFAmREBQJjTgUCY0kFAmNLBQJkbQUCY0IFAmNHBQJkSgUCZEUFAmRGBQJjWAUCY1oBAmRLAQJkTAQCZE0JAJEDAgUCZEwAAAQCZE4JAJEDAgUCZEwAAQQCZE8JALcCAgUCZE0FAmROAwkAAAIFAmRPBQFlBQFlBAJkUAkBDXBhcnNlSW50VmFsdWUBBQJhUwQCZFEJAGgCBQJkUAACBAJjcwkAvAIDBQJkTQUCZE4FAWYEAmRSCQC8AgMFAmNzBQFpBQFmBAJkUwkAvAIDCQC2AgEFAmRRBQJkTwUBZgQCZFQJALYCAQkAZQIFAmRRAAEKAQJkVQECZFYEAmRXCQC8AgMFAmRWBQJkVgUBZgQCZFgJALwCAwUCZFcFAmRWBQFmBAJkWQkAvAIDBQJkWAUBZgUCZFIJAL0CBAkAtwICBQJkUwkAvAIDBQJkWQUBZwUBZgUCZFYJALcCAgkAvAIDBQJkVAUCZFYFAWYJALwCAwUBaAUCZFkFAWYFB0NFSUxJTkcKAQJkWgICZWECZWIDCAUCZWECXzIFAmVhBAJkVggFAmVhAl8xBAJlYwkBAmRVAQUCZFYEAmVkCQCgAwEJALgCAgUCZWMJAQV2YWx1ZQEFAmRWBAJlZQMJAGYCAAAFAmVkCQEBLQEFAmVkBQJlZAMJAGcCAAEFAmVlCQCUCgIFAmVjBgkAlAoCBQJlYwcEAmVmCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOBQNuaWwEAmVnCgACZWgFAmVmCgACZWkJAJADAQUCZWgKAAJlagkAlAoCBQJkTwcKAQJlawICZWwCZW0DCQBnAgUCZW0FAmVpBQJlbAkBAmRaAgUCZWwJAJEDAgUCZWgFAmVtCgECZW4CAmVsAmVtAwkAZwIFAmVtBQJlaQUCZWwJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmVuAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgUCZWoAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZFYIBQJlZwJfMQQCZW8IBQJlZwJfMgMFAmVvBQJkVgkAAgEJAKwCAgIZRCBjYWxjdWxhdGlvbiBlcnJvciwgRCA9IAkApgMBBQJkVgECZXABAmRMBAJlcQUBZwQCZE0JAJEDAgUCZEwAAAQCZE4JAJEDAgUCZEwAAQQCZXIJAKcDAQUBbAQCZFAJALkCAgkApwMBBQJhUwUCZXIEAmRPCQC3AgIFAmRNBQJkTgMJAAACBQJkTwUBZQUBZQQCZFEJALkCAgUCZFAFAmVxBAJkUgkAuQICCQC5AgIJALkCAgUCZE0FAmROBQJlcQUCZXEEAmVzCQC6AgIJALkCAgUCZFEFAmRPBQJlcgQCZXQJALgCAgUCZFEFAmVyBAJldQkAtwICBQJlcQUBZgoBAmRaAgJlYQJldgQCZXcFAmVhBAJkVggFAmV3Al8xBAJlbwgFAmV3Al8yAwkBAiE9AgUCZW8FBHVuaXQFAmVhBAJkWQkAugICCQC5AgIJALkCAgUCZFYFAmRWBQJkVgUCZFIEAmVjCQC6AgIJALkCAgkAtwICBQJlcwkAuQICBQJkWQUCZXEFAmRWCQC3AgIJALoCAgkAuQICBQJldAUCZFYFAmVyCQC5AgIFAmV1BQJkWQQCZWUJAQFXAQkAuAICBQJlYwkBBXZhbHVlAQUCZFYDCQDAAgIFAWYFAmVlCQCUCgIFAmVjBQJldgkAlAoCBQJlYwUEdW5pdAQCZWYJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZXgKAAJlaAUCZWYKAAJlaQkAkAMBBQJlaAoAAmVqCQCUCgIFAmRPBQR1bml0CgECZWsCAmVsAmVtAwkAZwIFAmVtBQJlaQUCZWwJAQJkWgIFAmVsCQCRAwIFAmVoBQJlbQoBAmVuAgJlbAJlbQMJAGcCBQJlbQUCZWkFAmVsCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJlbgIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIJAQJlawIFAmVqAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmRWCAUCZXgCXzEEAmVvCAUCZXgCXzIDCQECIT0CBQJlbwUEdW5pdAUCZFYJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZFYBAmV5AwJkTAJlYgJlegQCZXEFAWcEAmVBCQCRAwIFAmRMAwkAAAIFAmViAAAAAQAABAJlcgkApwMBBQFsBAJkUAkAuQICCQCnAwEFAmFTBQJlcgQCZE8FAmVBBAJkUQkAuQICBQJkUAUCZXEEAmVCCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXoFAmV6CQC5AgIFAmVBBQJlcQUCZXoFAmVyCQC5AgIFAmRRBQJlcQQCZUMJALgCAgkAtwICBQJkTwkAugICCQC5AgIFAmV6BQJlcgUCZFEFAmV6CgECZFoCAmVhAmV2BAJlRAUCZWEEAmVFCAUCZUQCXzEEAmVvCAUCZUQCXzIDCQECIT0CBQJlbwUEdW5pdAUCZWEEAmVGCQC6AgIJALcCAgkAuQICBQJlRQUCZUUFAmVCCQC3AgIJALkCAgUBZwUCZUUFAmVDBAJlRwkBAVcBCQC4AgIFAmVGCQEFdmFsdWUBBQJlRQMJAMACAgUBZgUCZUcJAJQKAgUCZUYFAmV2CQCUCgIFAmVGBQR1bml0BAJlZgkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlSAoAAmVoBQJlZgoAAmVpCQCQAwEFAmVoCgACZWoJAJQKAgUCZXoFBHVuaXQKAQJlawICZWwCZW0DCQBnAgUCZW0FAmVpBQJlbAkBAmRaAgUCZWwJAJEDAgUCZWgFAmVtCgECZW4CAmVsAmVtAwkAZwIFAmVtBQJlaQUCZWwJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmVuAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgkBAmVrAgUCZWoAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUUIBQJlSAJfMQQCZW8IBQJlSAJfMgMJAQIhPQIFAmVvBQR1bml0BQJlRQkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlRQECZUkDAmVKAmVLAmVMBAJlTQkAvAIDCQECZEsBCQDMCAIFAmVKCQDMCAIFAmVLBQNuaWwFAWMFAmVMAwkAAAIFAmVMBQFlBQFlBQJlTQECZU4DAmVPAmVQAmVRBAJlUgkAuAICCQC2AgEJAQJiTAEJAQJiYwEFAmJrBQJlTwQCZVMJALgCAgkAtgIBCQECYkwBCQECYmMBBQJibAUCZVAEAmVUCQC4AgIJALYCAQgJAQV2YWx1ZQEJAOwHAQUCYmoIcXVhbnRpdHkFAmVRBAJlVQkBAmVJAwUCZVIFAmVTBQJlVAUCZVUBAmVWAwJlVwJlWAJlUQQCZVIJAGQCCQECYkwBCQECYmMBBQJiawUCZVcEAmVTCQBkAgkBAmJMAQkBAmJjAQUCYmwFAmVYBAJlVAkAZAIICQEFdmFsdWUBCQDsBwEFAmJqCHF1YW50aXR5BQJlUQQCZU0JAQJlSQMJALYCAQUCZVIJALYCAQUCZVMJALYCAQUCZVQEAmVZCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJhcAUGaGVpZ2h0CQDMCAIJAQtTdHJpbmdFbnRyeQIFAmFvCQCmAwEFAmVNBQNuaWwJAJQKAgUCZVkFAmVNAQJlWgICZmECZU0DCQDAAgIFAmVNBQJmYQYJAQJhTAECInVwZGF0ZWQgRExwIGxvd2VyIHRoYW4gY3VycmVudCBETHABAmZiAQJmYwQCZmQIBQJmYwZhbW91bnQEAmZlCQBuBAgFAmZjBmFtb3VudAgFAmZjBXByaWNlBQFhBQVGTE9PUgQCZmYDCQAAAggFAmZjCW9yZGVyVHlwZQUDQnV5CQCUCgIFAmZkCQEBLQEFAmZlCQCUCgIJAQEtAQUCZmQFAmZlBAJlVwgFAmZmAl8xBAJlWAgFAmZmAl8yAwMDCQECYVQABgkAAAIFAmJpBQFyBgkAAAIFAmJpBQFzCQACAQINQWRtaW4gYmxvY2tlZAMDCQECIT0CCAgFAmZjCWFzc2V0UGFpcgthbW91bnRBc3NldAUCYmsGCQECIT0CCAgFAmZjCWFzc2V0UGFpcgpwcmljZUFzc2V0BQJibAkAAgECCVdyIGFzc2V0cwQCZmcJAKcDAQkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUCYW8EAmZoCQECZVYDBQJlVwUCZVgAAAQCZmkIBQJmaAJfMQQCZmoIBQJmaAJfMgQCZmsJAMACAgUCZmoFAmZnBQJmawECZmwBAmViAwkBAiE9AgkAkAMBCAUCZWIIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmZtCQEFdmFsdWUBCQCRAwIIBQJlYghwYXltZW50cwAABAJjeQkBBXZhbHVlAQgFAmZtB2Fzc2V0SWQEAmRlCAUCZm0GYW1vdW50BAJkcQkBAmN3BAkA2AQBCAUCZWINdHJhbnNhY3Rpb25JZAkA2AQBBQJjeQUCZGUIBQJlYgZjYWxsZXIEAmNTCAUCZHECXzEEAmNUCAUCZHECXzIEAmNHCQENcGFyc2VJbnRWYWx1ZQEIBQJkcQJfOQQCY1UIBQJkcQNfMTADAwkBAmFUAAYJAAACBQJjRwUBcwkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmNHCQCXCgUFAmNTBQJjVAUCZGUFAmN5BQJjVQECZm4KAmZvAmFnAmZwAmZxAmJVAmRiAmRjAmRkAmRlAmRmBAJkcQkBAmNWDQUCYWcFAmJVCAkBBXZhbHVlAQUCZnAGYW1vdW50CAkBBXZhbHVlAQUCZnAHYXNzZXRJZAgJAQV2YWx1ZQEFAmZxBmFtb3VudAgJAQV2YWx1ZQEFAmZxB2Fzc2V0SWQFAmZvCQAAAgUCYWcCAAUCZGIFAmRjBQJkZAUCZGUFAmRmBAJjRwkBDXBhcnNlSW50VmFsdWUBCAUCZHECXzgDAwMJAQJhVAAGCQAAAgUCY0cFAXEGCQAAAgUCY0cFAXMJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmNHBQJkcQECZnIFAmZzAmN5AmNBAmFnAmZ0BAJjQwkA2AQBCQEFdmFsdWUBBQJiawQCY0QJANgEAQkBBXZhbHVlAQUCYmwEAmNCBQJiagQCZGsFAmJtBAJkbAUCYm4EAmVUCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCY0ICEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmZ1AwkAvwICBQJlVAUBZQYJAAIBAiJpbml0aWFsIGRlcG9zaXQgcmVxdWlyZXMgYWxsIGNvaW5zAwkAAAIFAmZ1BQJmdQQCY0kJAQJiTAEFAmNDBAJjSwkBAmJMAQUCY0QEAmZ2AwkAAAIFAmFnAgAJAJQKAgUCY0kFAmNLAwkAAAIFAmN5BQJjQwMJAGYCBQJmcwUCY0kJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIJAGUCBQJjSQUCZnMFAmNLAwkAAAIFAmN5BQJjRAMJAGYCBQJmcwUCY0sJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIFAmNJCQBlAgUCY0sFAmZzCQACAQIQd3JvbmcgcG10QXNzZXRJZAQCZncIBQJmdgJfMQQCZngIBQJmdgJfMgQCZnkDCQAAAgUCY3kFAmNDCQCUCgIFAmZzAAADCQAAAgUCY3kFAmNECQCUCgIAAAUCZnMJAAIBAg9pbnZhbGlkIHBheW1lbnQEAmZ6CAUCZnkCXzEEAmZBCAUCZnkCXzIEAmZCAwUCZnQJAJUKAwgJAQJjdAIFAmZ6BQJhUAJfMQgJAQJjdAIFAmZBBQJhUAJfMQgJAQJjdAIFAmZzBQJhUAJfMgkAlQoDBQJmegUCZkEAAAQCZkMIBQJmQgJfMQQCZkQIBQJmQgJfMgQCY3YIBQJmQgJfMwQCZkUJAGQCBQJmdwUCZkMEAmZGCQBkAgUCZngFAmZEBAJiWgkBAmRLAQkAzAgCCQC2AgEFAmZ3CQDMCAIJALYCAQUCZngFA25pbAQCYlkJAQJkSwEJAMwIAgkAtgIBBQJmRQkAzAgCCQC2AgEFAmZGBQNuaWwEAmZHAwkAvwICBQJiWQUCYloGCQEFdGhyb3cAAwkAAAIFAmZHBQJmRwQCZkgJAL0CBAUCZVQJALgCAgUCYlkFAmJaBQJiWgUFRkxPT1IEAmNOCQEBSwIJAQJiTgIJAQFIAgUCZkYFAmRsCQEBSAIFAmZFBQJkawUBYQQCZEoJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYQAFAmNOCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYWICBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjTgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWUCBQJjQQUCYWcJAQJidwoFAmZ6BQJmQQkAoAMBBQJmSAUCY04AAAAABQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wAAAAAAUDbmlsBAJmSQkAawMFAmZ4BQFhBQJmdwQCZkoJAGsDBQJmcwUBYQkAZAIFAmZJBQFhBAJmSwkAZQIFAmZzBQJmSgQCZkwJALwCAwUCZVQJALYCAQUCZksJALYCAQUCZngEAmZNCQCgAwEJALwCAwkAuAICBQJmSAUCZkwFAWIFAmZMCQCWCgQJAKADAQUCZkgFAmRKBQJjdgUCZk0JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmZOBgJmTwJmUAJmUQJmbwJmUgJmUwQCY0IJANgEAQkBBXZhbHVlAQUCYmoEAmNDCQDYBAEJAQV2YWx1ZQEFAmJrBAJjRAkA2AQBCQEFdmFsdWUBBQJibAQCZlQFAmJtBAJmVQUCYm4EAmZWBQJiaQQCY0EDCQAAAgUCZm8FAmJ2BQJmUgUCZm8EAmZtCQEFdmFsdWUBCQCRAwIFAmZRAAAEAmN5CQEFdmFsdWUBCAUCZm0HYXNzZXRJZAQCZGUIBQJmbQZhbW91bnQEAmVVCQECZU4DBQFlBQFlBQFlAwkAAAIFAmVVBQJlVQQCY3gJANgEAQUCZlMDCQECIT0CBQJjQgkA2AQBBQJjeQkAAgECCFdyb25nIExQBAJjSQkBAmJMAQUCY0MEAmNLCQECYkwBBQJjRAQCZlcKAAJhUQkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZPCQDMCAIFAmRlBQNuaWwFA25pbAMJAAECBQJhUQIKKEludCwgSW50KQUCYVEJAAIBCQCsAgIJAAMBBQJhUQIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQJmVwUCZlcEAmN2CAUCZlcCXzIEAmZYCAUCZlcCXzEEAmZZAwMJAGYCBQJmUAAACQBmAgUCZlAFAmZYBwkBAmFMAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmUAUDbmlsAgAFAmZYBAJmWgMJAAACBQJmTwUCY0MJAJYKBAUCZlkAAAkAZQIJAGUCBQJjSQUCZlkFAmN2BQJjSwMJAAACBQJmTwUCY0QJAJYKBAAABQJmWQUCY0kJAGUCCQBlAgUCY0sFAmZZBQJjdgkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJnYQgFAmZaAl8xBAJnYggFAmZaAl8yBAJmRQgFAmZaAl8zBAJmRggFAmZaAl80BAJnYwkBAmJOAgkBAUgCBQJmRgUCZlUJAQFIAgUCZkUFAmZUBAJnZAkBAUsCBQJnYwUBYQQCZ2UDCQAAAgUCZk8CBVdBVkVTBQR1bml0CQDZBAEFAmZPBAJnZgMJAGYCBQJjdgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFWBQJjdgUCZ2UFA25pbAUDbmlsBAJjVQkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmNBBQJmWQUCZ2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFoAgkApQgBBQJjQQUCY3gJAQJiSAYFAmdhBQJnYgUCZGUFAmdkBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYWEABQJnZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFiAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZ2QFA25pbAUCZ2YDCQAAAgUCY1UFAmNVBAJnZwkA/AcEBQJhTwIEYnVybgkAzAgCBQJkZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjeQUCZGUFA25pbAMJAAACBQJnZwUCZ2cEAmdoBAJnaQMJAAACBQR0aGlzBQJhVgAABQJjdgQCZ2oDCQAAAgkBAmJhAQUCZk8FAmJrBgcDBQJnagkAlAoCCQEBLQEJAGQCBQJmWAUCZ2kAAAkAlAoCAAAJAQEtAQkAZAIFAmZYBQJnaQQCZVcIBQJnaAJfMQQCZVgIBQJnaAJfMgQCZ2sJAQJlVgMFAmVXBQJlWAAABAJnbAgFAmdrAl8xBAJlTQgFAmdrAl8yBAJnbQkBAmVaAgUCZVUFAmVNAwkAAAIFAmdtBQJnbQkAlAoCCQDOCAIFAmNVBQJnbAUCZlkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmduAAQCZ28JAKIIAQkBAVkAAwkAAQIFAmdvAgZTdHJpbmcEAmRPBQJnbwkA2QQBBQJkTwMJAAECBQJnbwIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQJncAAEAmdvCQCiCAEJAQFaAAMJAAECBQJnbwIGU3RyaW5nBAJkTwUCZ28JANkEAQUCZE8DCQABAgUCZ28CBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgACZ3EJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAECZ3IBAmViBAJnbwkBAmduAAMJAAECBQJnbwIKQnl0ZVZlY3RvcgQCZ3MFAmdvCQAAAggFAmViD2NhbGxlclB1YmxpY0tleQUCZ3MDCQABAgUCZ28CBFVuaXQJAAACCAUCZWIGY2FsbGVyBQR0aGlzCQACAQILTWF0Y2ggZXJyb3IBAmd0AQJlYgQCZ28JAQJnbgADCQABAgUCZ28CCkJ5dGVWZWN0b3IEAmdzBQJnbwMJAAACCAUCZWIPY2FsbGVyUHVibGljS2V5BQJncwYFAmdxAwkAAQIFAmdvAgRVbml0AwkAAAIIBQJlYgZjYWxsZXIFBHRoaXMGBQJncQkAAgECC01hdGNoIGVycm9yHAJlYgELY29uc3RydWN0b3IBAVgEAmVCCQECZ3QBBQJlYgMJAAACBQJlQgUCZUIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVgABQFYBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZWIBCnNldE1hbmFnZXIBAmd1BAJlQgkBAmd0AQUCZWIDCQAAAgUCZUIFAmVCBAJndgkA2QQBBQJndQMJAAACBQJndgUCZ3YJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVoABQJndQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQ5jb25maXJtTWFuYWdlcgAEAmNzCQECZ3AABAJndwMJAQlpc0RlZmluZWQBBQJjcwYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZ3cFAmd3BAJneAMJAAACCAUCZWIPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJjcwYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZ3gFAmd4CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFZAAkA2AQBCQEFdmFsdWUBBQJjcwkAzAgCCQELRGVsZXRlRW50cnkBCQEBWgAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJlYgEDcHV0AgJneQJnegQCZ0EJAQJicQAEAmdCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJnQQUBQwIKV3Igc3QgYWRkcgQCZ0MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdBBQFFAgpXciBzbCBhZGRyAwkAZgIAAAUCZ3kJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmViCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdECQC2AgEICQEFdmFsdWUBCQCRAwIIBQJlYghwYXltZW50cwAABmFtb3VudAQCZ0UJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmViCHBheW1lbnRzAAEGYW1vdW50BAJlUgkAuAICCQC2AgEJAQJiTAEJAQJiYwEFAmJrBQJnRAMJAAACBQJlUgUCZVIEAmVTCQC4AgIJALYCAQkBAmJMAQkBAmJjAQUCYmwFAmdFAwkAAAIFAmVTBQJlUwQCZVQJALYCAQgJAQV2YWx1ZQEJAOwHAQUCYmoIcXVhbnRpdHkDCQAAAgUCZVQFAmVUBAJlVQkBAmVOAwUCZ0QFAmdFCQC2AgEAAAMJAAACBQJlVQUCZVUEAmdGCQECZm4KCQClCAEIBQJlYgZjYWxsZXIJANgEAQgFAmViDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZWIIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZWIIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmViCHBheW1lbnRzAAEFAmd5BgcGAAACAAQCZEQIBQJnRgJfMgQCZ0cIBQJnRgJfNwQCY1UIBQJnRgJfOQQCZEUIBQJnRgNfMTAEAmRGCAUCZ0YDXzExBAJjQwgFAmdGA18xMgQCY0QIBQJnRgNfMTMEAmRxCQD8BwQFAmFPAgRlbWl0CQDMCAIFAmREBQNuaWwFA25pbAMJAAACBQJkcQUCZHEEAmdIBAJnbwUCZHEDCQABAgUCZ28CB0FkZHJlc3MEAmdJBQJnbwkA/AcEBQJnSQIEZW1pdAkAzAgCBQJkRAUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZ0gFAmdIBAJnSgMJAGYCBQJkRQAACQD8BwQFAmdDAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY0MFAmRFBQNuaWwFA25pbAMJAAACBQJnSgUCZ0oEAmdLAwkAZgIFAmRGAAAJAPwHBAUCZ0MCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjRAUCZEYFA25pbAUDbmlsAwkAAAIFAmdLBQJnSwQCZ0wDBQJnegQCZ00JAPwHBAUCZ0ICBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmdHBQJkRAUDbmlsAwkAAAIFAmdNBQJnTQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJlYgZjYWxsZXIFAmREBQJnRwUDbmlsBAJnTgkBAmVWAwAAAAAAAAQCZ2wIBQJnTgJfMQQCZU0IBQJnTgJfMgQCZ08DCQDAAgIFAmVNBQJlVQYJAQJhTAEJALkJAgkAzAgCAiJ1cGRhdGVkIERMcCBsb3dlciB0aGFuIGN1cnJlbnQgRExwCQDMCAIJAKYDAQUCZVIJAMwIAgkApgMBBQJlUwkAzAgCCQCmAwEFAmVUCQDMCAIJAKYDAQUCZVUJAMwIAgkApgMBBQJlTQkAzAgCCQCkAwEFAmRFCQDMCAIJAKQDAQUCZEYFA25pbAIBIAMJAAACBQJnTwUCZ08EAmdQCAkBBXZhbHVlAQkA7AcBBQJiaghxdWFudGl0eQMJAAACBQJnUAUCZ1AJAM4IAgkAzggCBQJjVQUCZ0wFAmdsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQtwdXRPbmVUa25WMgICZlACZ3oEAmdRCgACYVEJAPwHBAUCYU8CKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhUQIHQm9vbGVhbgUCYVEJAAIBCQCsAgIJAAMBBQJhUQIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZ1IDAwMJAQJhVAAGCQAAAgUCYmkFAXEGCQAAAgUCYmkFAXMGBQJnUQQCZ1MJAMwIAgMDCQEBIQEFAmdSBgkBAmdyAQUCZWIGCQECYUwBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJlYghwYXltZW50cwABBgkBAmFMAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1MFAmdTBAJjQwkA2AQBCQEFdmFsdWUBBQJiawQCY0QJANgEAQkBBXZhbHVlAQUCYmwEAmNCBQJiagQCZlQFAmJtBAJmVQUCYm4EAmNBAwkAAAIIBQJlYgZjYWxsZXIFBHRoaXMIBQJlYgxvcmlnaW5DYWxsZXIIBQJlYgZjYWxsZXIEAmZtCQEFdmFsdWUBCQCRAwIIBQJlYghwYXltZW50cwAABAJjeQkA2AQBCQEFdmFsdWUBCAUCZm0HYXNzZXRJZAQCZGUIBQJmbQZhbW91bnQEAmVVAwkAAAIIBQJmbQdhc3NldElkBQJiawkBAmVOAwkAtgIBBQJkZQkAtgIBAAAJALYCAQAACQECZU4DCQC2AgEAAAkAtgIBBQJkZQkAtgIBAAADCQAAAgUCZVUFAmVVBAJnVAkBAmZyBQUCZGUFAmN5CQClCAEFAmNBCQDYBAEIBQJlYg10cmFuc2FjdGlvbklkBgMJAAACBQJnVAUCZ1QEAmN2CAUCZ1QCXzMEAmNVCAUCZ1QCXzIEAmdVCAUCZ1QCXzEEAmREAwMJAGYCBQJmUAAACQBmAgUCZlAFAmdVBwkBAmFMAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmUAUDbmlsAgAFAmdVBAJnRgkA/AcEBQJhTwIEZW1pdAkAzAgCBQJkRAUDbmlsBQNuaWwDCQAAAgUCZ0YFAmdGBAJnSAQCZ28FAmdGAwkAAQIFAmdvAgdBZGRyZXNzBAJnSQUCZ28JAPwHBAUCZ0kCBGVtaXQJAMwIAgUCZEQFA25pbAUDbmlsBQR1bml0AwkAAAIFAmdIBQJnSAQCZ0wDBQJnegQCZ00JAPwHBAUCYnMCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNCBQJkRAUDbmlsAwkAAAIFAmdNBQJnTQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJlYgZjYWxsZXIFAmREBQJjQgUDbmlsBAJnZgMJAGYCBQJjdgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFWBQJjdgkA2QQBBQJjeQUDbmlsBQNuaWwEAmdWAwkAAAIFBHRoaXMFAmFWCQCUCgIAAAAABAJnVwMJAAACCAUCZm0HYXNzZXRJZAUCYmsGBwMFAmdXCQCUCgIJAQEtAQUCY3YAAAkAlAoCAAAJAQEtAQUCY3YEAmVXCAUCZ1YCXzEEAmVYCAUCZ1YCXzIEAmdYCQECZVYDBQJlVwUCZVgAAAQCZ2wIBQJnWAJfMQQCZU0IBQJnWAJfMgQCZ20JAQJlWgIFAmVVBQJlTQMJAAACBQJnbQUCZ20JAJQKAgkAzggCCQDOCAIJAM4IAgUCY1UFAmdMBQJnZgUCZ2wFAmRECQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQpwdXRGb3JGcmVlAQJnWQMJAGYCAAAFAmdZCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmViCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdaCQECZm4KCQClCAEIBQJlYgZjYWxsZXIJANgEAQgFAmViDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZWIIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZWIIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmViCHBheW1lbnRzAAEFAmdZBwcGAAACAAQCY1UIBQJnWgJfOQQCZ0QJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmViCHBheW1lbnRzAAAGYW1vdW50BAJnRQkAtgIBCAkBBXZhbHVlAQkAkQMCCAUCZWIIcGF5bWVudHMAAQZhbW91bnQEAmVVCQECZU4DBQJnRAUCZ0UJALYCAQAAAwkAAAIFAmVVBQJlVQQCaGEJAQJlVgMAAAAAAAAEAmdsCAUCaGECXzEEAmVNCAUCaGECXzIEAmdtCQECZVoCBQJlVQUCZU0DCQAAAgUCZ20FAmdtCQDOCAIFAmNVBQJnbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJlYgEDZ2V0AAQCZVUJAQJlTgMJALYCAQAACQC2AgEAAAkAtgIBAAADCQAAAgUCZVUFAmVVBAJkcQkBAmZsAQUCZWIEAmhiCAUCZHECXzEEAmNUCAUCZHECXzIEAmRlCAUCZHECXzMEAmN5CAUCZHECXzQEAmNVCAUCZHECXzUEAmVDCQD8BwQFAmFPAgRidXJuCQDMCAIFAmRlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmN5BQJkZQUDbmlsAwkAAAIFAmVDBQJlQwQCaGMJAQJlVgMJAQEtAQUCaGIJAQEtAQUCY1QAAAQCZ2wIBQJoYwJfMQQCZU0IBQJoYwJfMgQCZ20JAQJlWgIFAmVVBQJlTQMJAAACBQJnbQUCZ20JAM4IAgUCY1UFAmdsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQtnZXRPbmVUa25WMgICZk8CZlAEAmdRCgACYVEJAPwHBAUCYU8CKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhUQIHQm9vbGVhbgUCYVEJAAIBCQCsAgIJAAMBBQJhUQIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCaGQDAwkBAmFUAAYJAAACBQJiaQUBcwYFAmdRBAJnUwkAzAgCAwMJAQEhAQUCaGQGCQECZ3IBBQJlYgYJAQJhTAECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmViCHBheW1lbnRzAAEGCQECYUwBAh5leGFjdGx5IDEgcGF5bWVudCBhcmUgZXhwZWN0ZWQFA25pbAMJAAACBQJnUwUCZ1MEAmhlCQECZk4GBQJmTwUCZlAIBQJlYghwYXltZW50cwgFAmViBmNhbGxlcggFAmViDG9yaWdpbkNhbGxlcggFAmViDXRyYW5zYWN0aW9uSWQEAmNVCAUCaGUCXzEEAmZZCAUCaGUCXzIJAJQKAgUCY1UFAmZZCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQpyZWZyZXNoRExwAAQCaGYJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUCYXAAAAQCaGcDCQBnAgkAZQIFBmhlaWdodAUCaGYFAmFzBQR1bml0CQECYUwBCQC5CQIJAMwIAgkApAMBBQJhcwkAzAgCAi8gYmxvY2tzIGhhdmUgbm90IHBhc3NlZCBzaW5jZSB0aGUgcHJldmlvdXMgY2FsbAUDbmlsAgADCQAAAgUCaGcFAmhnBAJmZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCoAwEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwUCYW8CATAJAQJhTgECC2ludmFsaWQgZExwBAJoaAkBAmVWAwAAAAAAAAQCaGkIBQJoaAJfMQQCZU0IBQJoaAJfMgQCZVkDCQECIT0CBQJmZwUCZU0FAmhpCQECYUwBAhJub3RoaW5nIHRvIHJlZnJlc2gJAJQKAgUCZVkJAKYDAQUCZU0JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZWIBE2dldE9uZVRrblYyUkVBRE9OTFkCAmZPAmhqBAJjQwkA2AQBCQEFdmFsdWUBBQJiawQCY0QJANgEAQkBBXZhbHVlAQUCYmwEAmNCCQDYBAEJAQV2YWx1ZQEFAmJqBAJkTAkAzAgCCQC2AgEJAQJiTAEFAmNDCQDMCAIJALYCAQkBAmJMAQUCY0QFA25pbAQCZUwJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmNCAhBpbnZhbGlkIGxwIGFzc2V0CHF1YW50aXR5BAJiWgkBAmRLAQUCZEwEAmJZCQC4AgIFAmJaCQC8AgMJALYCAQUCaGoFAmJaBQJlTAQCaGsDCQAAAgUCZk8FAmNDAAADCQAAAgUCZk8FAmNEAAEJAAIBAhRpbnZhbGlkIG91dCBhc3NldCBpZAQCaGwJAQJleQMFAmRMBQJoawUCYlkEAmhtCQC4AgIJAJEDAgUCZEwFAmhrBQJobAQCaG4JAJYDAQkAzAgCAAAJAMwIAgkAoAMBCQC4AgIFAmhtBQFmBQNuaWwEAmhvCQECY3QCBQJobgUCYVIEAmZYCAUCaG8CXzEEAmN2CAUCaG8CXzIJAJQKAgUDbmlsCQCUCgIFAmZYBQJjdgJlYgEcZ2V0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICZk8CaGoEAmNDCQDYBAEJAQV2YWx1ZQEFAmJrBAJjRAkA2AQBCQEFdmFsdWUBBQJibAQCY0IJANgEAQkBBXZhbHVlAQUCYmoEAmNJCQECYkwBBQJjQwQCY0sJAQJiTAEFAmNEBAJocAoAAmFRCQD8BwQFBHRoaXMCE2dldE9uZVRrblYyUkVBRE9OTFkJAMwIAgUCZk8JAMwIAgUCaGoFA25pbAUDbmlsAwkAAQIFAmFRAgooSW50LCBJbnQpBQJhUQkAAgEJAKwCAgkAAwEFAmFRAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpBAJmWAgFAmhwAl8xBAJjdggFAmhwAl8yBAJkcQkBAmN3BAIABQJjQgUCaGoFBHRoaXMEAmNTCAUCZHECXzEEAmNUCAUCZHECXzIEAmhxCQBkAgUCY1MFAmNUBAJmTQMJAAACBQJocQAAAwkAAAIFAmZYAAAAAAkAAgECF2JvbnVzIGNhbGN1bGF0aW9uIGVycm9yCQBrAwkAZQIFAmZYBQJocQUBYQUCaHEJAJQKAgUDbmlsCQCVCgMFAmZYBQJjdgUCZk0CZWIBCWdldE5vTGVzcwICaHICaHMEAmRxCQECZmwBBQJlYgQCY1MIBQJkcQJfMQQCY1QIBQJkcQJfMgQCZGUIBQJkcQJfMwQCY3kIBQJkcQJfNAQCY1UIBQJkcQJfNQMJAGYCBQJocgUCY1MJAAIBCQCsAgIJAKwCAgkArAICAglGYWlsZWQ6ICAJAKQDAQUCY1MCAyA8IAkApAMBBQJocgMJAGYCBQJocwUCY1QJAAIBCQCsAgIJAKwCAgkArAICAghGYWlsZWQ6IAkApAMBBQJjVAIDIDwgCQCkAwEFAmhzBAJlVQkBAmVOAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlVQUCZVUEAmh0CQD8BwQFAmFPAgRidXJuCQDMCAIFAmRlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmN5BQJkZQUDbmlsAwkAAAIFAmh0BQJodAQCaHUJAQJlVgMJAQEtAQUCY1MJAQEtAQUCY1QAAAQCZ2wIBQJodQJfMQQCZU0IBQJodQJfMgQCZ20JAQJlWgIFAmVVBQJlTQMJAAACBQJnbQUCZ20JAM4IAgUCY1UFAmdsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViAQ11bnN0YWtlQW5kR2V0AQJjdQQCaHYDCQECIT0CCQCQAwEIBQJlYghwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUCaHYFAmh2BAJodwkBAmJxAAQCZ0cFAmJqBAJoeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCaHcFAUMCCldyIHN0IGFkZHIEAmVVCQECZU4DCQC2AgEAAAkAtgIBAAAJALYCAQAABAJoeQkA/AcEBQJoeAIHdW5zdGFrZQkAzAgCCQDYBAEFAmdHCQDMCAIFAmN1BQNuaWwFA25pbAMJAAACBQJoeQUCaHkEAmRxCQECY3cECQDYBAEIBQJlYg10cmFuc2FjdGlvbklkCQDYBAEFAmdHBQJjdQgFAmViBmNhbGxlcgQCY1MIBQJkcQJfMQQCY1QIBQJkcQJfMgQCY0cJAQ1wYXJzZUludFZhbHVlAQgFAmRxAl85BAJjVQgFAmRxA18xMAQCaHoDAwkBAmFUAAYJAAACBQJjRwUBcwkAAgEJAKwCAgIJQmxvY2tlZDogCQCkAwEFAmNHBgMJAAACBQJoegUCaHoEAmhBCQD8BwQFAmFPAgRidXJuCQDMCAIFAmN1BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmdHBQJjdQUDbmlsAwkAAAIFAmhBBQJoQQQCaEIJAQJlVgMJAQEtAQUCY1MJAQEtAQUCY1QAAAQCZ2wIBQJoQgJfMQQCZU0IBQJoQgJfMgQCZ20JAQJlWgIFAmVVBQJlTQMJAAACBQJnbQUCZ20JAM4IAgUCY1UFAmdsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmViARN1bnN0YWtlQW5kR2V0Tm9MZXNzAwJoQwJoRAJocwQCaGQDCQECYVQABgkAAAIFAmJpBQFzBAJnUwkAzAgCAwkBASEBBQJoZAYJAAIBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJlYghwYXltZW50cwAABgkAAgECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmdTBQJnUwQCZVUJAQJlTgMJALYCAQAACQC2AgEAAAkAtgIBAAAEAmh5CQD8BwQFAmJzAgd1bnN0YWtlCQDMCAIJANgEAQUCYmoJAMwIAgUCaEMFA25pbAUDbmlsAwkAAAIFAmh5BQJoeQQCaEUJAQJjdwQJANgEAQgFAmViDXRyYW5zYWN0aW9uSWQJANgEAQUCYmoFAmhDCAUCZWIGY2FsbGVyBAJjUwgFAmhFAl8xBAJjVAgFAmhFAl8yBAJjVQgFAmhFA18xMAQCaEYJAMwIAgMJAGcCBQJjUwUCaEQGCQACAQkAuQkCCQDMCAICLGFtb3VudCBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaEQFA25pbAIACQDMCAIDCQBnAgUCY1QFAmhzBgkAAgEJALkJAgkAzAgCAitwcmljZSBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaHMFA25pbAIABQNuaWwDCQAAAgUCaEYFAmhGBAJodAkA/AcEBQJhTwIEYnVybgkAzAgCBQJoQwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiagUCaEMFA25pbAMJAAACBQJodAUCaHQEAmhHCQECZVYDCQEBLQEFAmNTCQEBLQEFAmNUAAAEAmdsCAUCaEcCXzEEAmVNCAUCaEcCXzIEAmdtCQECZVoCBQJlVQUCZU0DCQAAAgUCZ20FAmdtCQDOCAIFAmNVBQJnbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJlYgEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJoQwJmTwJmUAQCZ1EKAAJhUQkA/AcEBQJhTwIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFRAgdCb29sZWFuBQJhUQkAAgEJAKwCAgkAAwEFAmFRAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJoZAMDCQECYVQABgkAAAIFAmJpBQFzBgUCZ1EEAmdTCQDMCAIDAwkBASEBBQJoZAYJAQJncgEFAmViBgkBAmFMAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZWIIcGF5bWVudHMAAAYJAQJhTAECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmdTBQJnUwQCaHcJAQJicQAEAmdHBQJiagQCaHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmh3BQFDAgpXciBzdCBhZGRyBAJoeQkA/AcEBQJoeAIHdW5zdGFrZQkAzAgCCQDYBAEFAmdHCQDMCAIFAmhDBQNuaWwFA25pbAMJAAACBQJoeQUCaHkEAmhICQECZk4GBQJmTwUCZlAJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmdHBQJoQwUDbmlsCAUCZWIGY2FsbGVyCAUCZWIMb3JpZ2luQ2FsbGVyCAUCZWINdHJhbnNhY3Rpb25JZAQCY1UIBQJoSAJfMQQCZlkIBQJoSAJfMgkAlAoCBQJjVQUCZlkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZWIBHHB1dE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmhJAmhKBAJoSwkBAmZyBQUCaEkFAmhKAgACAAYEAmZICAUCaEsCXzEEAmNVCAUCaEsCXzIEAmN2CAUCaEsCXzMEAmZNCAUCaEsCXzQJAJQKAgUDbmlsCQCVCgMFAmZIBQJjdgUCZk0CZWIBIXB1dE9uZVRrblYyV2l0aG91dFRha2VGZWVSRUFET05MWQICaEkCaEoEAmhMCQECZnIFBQJoSQUCaEoCAAIABwQCZkgIBQJoTAJfMQQCY1UIBQJoTAJfMgQCY3YIBQJoTAJfMwQCZk0IBQJoTAJfNAkAlAoCBQNuaWwJAJUKAwUCZkgFAmN2BQJmTQJlYgEIYWN0aXZhdGUCAmhNAmhOAwkBAiE9AgkApQgBCAUCZWIGY2FsbGVyCQClCAEFAmFPCQACAQIGZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFpAAUCaE0JAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFqAAUCaE4FA25pbAIHc3VjY2VzcwJlYgEEc2V0UwICaE8CaHoDCQECIT0CCQClCAEIBQJlYgZjYWxsZXIJAQJhSAIFBHRoaXMJAQJhbAAFAmdxCQDMCAIJAQtTdHJpbmdFbnRyeQIFAmhPBQJoegUDbmlsAmViAQRzZXRJAgJoTwJoegMJAQIhPQIJAKUIAQgFAmViBmNhbGxlcgkBAmFIAgUEdGhpcwkBAmFsAAUCZ3EJAMwIAgkBDEludGVnZXJFbnRyeQIFAmhPBQJoegUDbmlsAmViARxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZAAkAlAoCBQNuaWwJAQJhVwACZWIBHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkBAmJNCQCUCgIFA25pbAkBAmJMAQUCYk0CZWIBGWNhbGNQcmljZXNXcmFwcGVyUkVBRE9OTFkDAmNmAmNnAmNrBAJoUAkBAmNqAwUCY2YFAmNnBQJjawkAlAoCBQNuaWwJAMwIAgkApgMBCQCRAwIFAmhQAAAJAMwIAgkApgMBCQCRAwIFAmhQAAEJAMwIAgkApgMBCQCRAwIFAmhQAAIFA25pbAJlYgEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIBTAJoUQkAlAoCBQNuaWwJAQFLAgkApwMBBQFMBQJoUQJlYgEUdG9YMThXcmFwcGVyUkVBRE9OTFkCAUkBSgkAlAoCBQNuaWwJAKYDAQkBAUgCBQFJBQFKAmViAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCAmJPAmJQCQCUCgIFA25pbAkApgMBCQECYk4CCQCnAwEFAmJPCQCnAwEFAmJQAmViASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkCY3gCYlUCY1cCY1gCY1kCY1oCaFICZGECZGIJAJQKAgUDbmlsCQECY1YNBQJjeAUCYlUFAmNXBQJjWAUCY1kFAmNaBQJoUgUCZGEFAmRiBgcAAAIAAmViASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQCY3gCaFMCY3oCaFIEAmRxCQECY3cEBQJjeAUCaFMFAmN6CQERQGV4dHJOYXRpdmUoMTA2MikBBQJoUgkAlAoCBQNuaWwJAJwKCggFAmRxAl8xCAUCZHECXzIIBQJkcQJfMwgFAmRxAl80CAUCZHECXzUIBQJkcQJfNggFAmRxAl83CQCmAwEIBQJkcQJfOAgFAmRxAl85CAUCZHEDXzEwAQJoVAECaFUABAJoVgQCZ28JAQJnbgADCQABAgUCZ28CCkJ5dGVWZWN0b3IEAmdzBQJnbwUCZ3MDCQABAgUCZ28CBFVuaXQIBQJoVA9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCZ28FAmhUAwkAAQIFAmdvAgVPcmRlcgQCZmMFAmdvBAJoVwkBAmFVAAQCaFgJAQJmYgEFAmZjBAJoWQkA9AMDCAUCZmMJYm9keUJ5dGVzCQCRAwIIBQJmYwZwcm9vZnMAAAgFAmZjD3NlbmRlclB1YmxpY0tleQQCaFoJAPQDAwgFAmZjCWJvZHlCeXRlcwkAkQMCCAUCZmMGcHJvb2ZzAAEFAmhXAwMDBQJoWAUCaFkHBQJoWgcGCQECYUQDBQJoWAUCaFkFAmhaAwkAAQIFAmdvAhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQCZE8FAmdvBAJpYQkA9gMBCQEFdmFsdWUBCAUCZE8Gc2NyaXB0BAJpYgkA2wQBCQEFdmFsdWUBCQCdCAIFAmFPCQECYUIABAJpYwkA8QcBBQR0aGlzAwMJAAACBQJpYgUCaWEJAQIhPQIFAmljBQJpYQcGCQD0AwMIBQJoVAlib2R5Qnl0ZXMJAJEDAggFAmhUBnByb29mcwAABQJoVgkA9AMDCAUCaFQJYm9keUJ5dGVzCQCRAwIIBQJoVAZwcm9vZnMAAAUCaFZGJSnc",
    "chainId": 84,
    "height": 2411646,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 6MAGgcmJKUnxYKh4SkorsRhj81XqXCMmpezMcc5NL3Nz
Next: 3tzL65BAr9dN82B8piJuqWDEyRoZ8jRZ51Fd9aP41Ksx

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+
79+func t2 (origVal,origScaleMult) = fraction(origVal, scale18, toBigInt(origScaleMult))
80+
81+
82+func f2 (val,resultScaleMult) = fraction(val, toBigInt(resultScaleMult), scale18)
83+
84+
7285 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7386 
7487 
115128 func ada () = "%s__addonAddr"
116129 
117130 
131+let keyFee = "%s__fee"
132+
133+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
134+
135+let keyDLp = makeString(["%s", "dLp"], SEP)
136+
137+let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
138+
139+let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
140+
141+let dLpRefreshDelayDefault = 1
142+
143+let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
144+
118145 func fcfg () = "%s__factoryConfig"
119146 
120147 
139166 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140167 
141168 
142-func str (val) = match val {
143-    case valStr: String => 
144-        valStr
145-    case _ => 
146-        throw("fail cast to String")
147-}
148-
149-
150169 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151170 
152171 
154173 
155174 
156175 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
176+
177+
178+func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
157179 
158180 
159181 let fca = addressFromStringValue(strf(this, fc()))
201223     else toBase58String(value(input))
202224 
203225 
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]))
226+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]))
205227 
206228 
207229 let poolConfigParsed = parsePoolConfig(gpc())
208230 
209-let $t069097095 = poolConfigParsed
231+let $t077427971 = poolConfigParsed
210232 
211-let cfgPoolAddress = $t069097095._1
233+let cfgPoolAddress = $t077427971._1
212234 
213-let cfgPoolStatus = $t069097095._2
235+let cfgPoolStatus = $t077427971._2
214236 
215-let cfgLpAssetId = $t069097095._3
237+let cfgLpAssetId = $t077427971._3
216238 
217-let cfgAmountAssetId = $t069097095._4
239+let cfgAmountAssetId = $t077427971._4
218240 
219-let cfgPriceAssetId = $t069097095._5
241+let cfgPriceAssetId = $t077427971._5
220242 
221-let cfgAmountAssetDecimals = $t069097095._6
243+let cfgAmountAssetDecimals = $t077427971._6
222244 
223-let cfgPriceAssetDecimals = $t069097095._7
245+let cfgPriceAssetDecimals = $t077427971._7
246+
247+let cfgInAmountAssedId = $t077427971._8
248+
249+let cfgInPriceAssetId = $t077427971._9
224250 
225251 func gfc () = split(strf(fca, fcfg()), SEP)
226252 
247273 
248274 
249275 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
276+
277+
278+func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
250279 
251280 
252281 func vad (A1,A2,slippage) = {
277306 
278307 
279308 func calcPrices (amAmt,prAmt,lpAmt) = {
280-    let cfg = gpc()
281-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
309+    let amtAsDcm = cfgAmountAssetDecimals
310+    let prAsDcm = cfgPriceAssetDecimals
283311     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
284312     let amAmtX18 = t1(amAmt, amtAsDcm)
285313     let prAmtX18 = t1(prAmt, prAsDcm)
305333 
306334 
307335 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))
336+    let lpId = cfgLpAssetId
337+    let amId = toBase58String(value(cfgAmountAssetId))
338+    let prId = toBase58String(value(cfgPriceAssetId))
339+    let amDcm = cfgAmountAssetDecimals
340+    let prDcm = cfgPriceAssetDecimals
341+    let sts = toString(cfgPoolStatus)
342+    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
343+    if ((toBase58String(lpId) != pmtAssetId))
317344         then throw("Wrong pmt asset")
318345         else {
319346             let amBalance = getAccBalance(amId)
326353             let lpEmissX18 = t1(lpEmiss, scale8)
327354             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
328355             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
329-            let outAmAmt = f1(outAmAmtX18, amDcm)
330-            let outPrAmt = f1(outPrAmtX18, prDcm)
356+            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
357+            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
331358             let state = if ((txId58 == ""))
332359                 then nil
333360                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
341368 
342369 
343370 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]
371+    let lpId = cfgLpAssetId
372+    let amIdStr = toBase58String(value(cfgAmountAssetId))
373+    let prIdStr = toBase58String(value(cfgPriceAssetId))
374+    let inAmIdStr = cfgInAmountAssedId
375+    let inPrIdStr = cfgInPriceAssetId
376+    let amtDcm = cfgAmountAssetDecimals
377+    let priceDcm = cfgPriceAssetDecimals
378+    let sts = toString(cfgPoolStatus)
353379     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
354380     let amBalance = if (isEval)
355381         then getAccBalance(amIdStr)
393419                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
394420                 else {
395421                     let lpEmissionX18 = t1(lpEm, scale8)
396-                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
422+                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
423+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), CEILING)
398424                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
399425                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
400426                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
401427                     let expAmtAssetAmtX18 = expectedAmts._1
402428                     let expPriceAssetAmtX18 = expectedAmts._2
403-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404-                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
429+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
430+                    $Tuple5((fromX18Round(lpAmtX18, scale8, FLOOR) - 100), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
405431                     }
406432             }
407433     let calcLpAmt = r._1
417443                 else calcLpAmt
418444             let amDiff = (inAmAmt - calcAmAssetPmt)
419445             let prDiff = (inPrAmt - calcPrAssetPmt)
420-            let $t01756217907 = if (if (isOneAsset)
446+            let $t01862718972 = if (if (isOneAsset)
421447                 then (pmtId == amIdStr)
422448                 else false)
423449                 then $Tuple2(pmtAmt, 0)
426452                     else false)
427453                     then $Tuple2(0, pmtAmt)
428454                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
429-            let writeAmAmt = $t01756217907._1
430-            let writePrAmt = $t01756217907._2
455+            let writeAmAmt = $t01862718972._1
456+            let writePrAmt = $t01862718972._2
431457             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))]
432458             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
433459             }
434460     }
435461 
436462 
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)
463+func getD (xp) = {
464+    let xp0 = xp[0]
465+    let xp1 = xp[1]
466+    let s = (xp0 + xp1)
467+    if ((s == big0))
468+        then big0
469+        else {
470+            let a = parseIntValue(A)
471+            let ann = (a * 2)
472+            let p = fraction(xp0, xp1, big1)
473+            let xp0_xp1_n_n = fraction(p, big4, big1)
474+            let ann_s = fraction(toBigInt(ann), s, big1)
475+            let ann_1 = toBigInt((ann - 1))
476+            func calcDNext (d) =             {
477+                let dd = fraction(d, d, big1)
478+                let ddd = fraction(dd, d, big1)
479+                let dp = fraction(ddd, big1, xp0_xp1_n_n)
480+                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
481+                }
482+
483+            func calc (acc,i) =             if (acc._2)
484+                then acc
485+                else {
486+                    let d = acc._1
487+                    let dNext = calcDNext(d)
488+                    let dDiffRaw = toInt((dNext - value(d)))
489+                    let dDiff = if ((0 > dDiffRaw))
490+                        then -(dDiffRaw)
491+                        else dDiffRaw
492+                    if ((1 >= dDiff))
493+                        then $Tuple2(dNext, true)
494+                        else $Tuple2(dNext, false)
495+                    }
496+
497+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
498+            let $t02090020948 = {
499+                let $l = arr
500+                let $s = size($l)
501+                let $acc0 = $Tuple2(s, false)
502+                func $f0_1 ($a,$i) =                 if (($i >= $s))
503+                    then $a
504+                    else calc($a, $l[$i])
505+
506+                func $f0_2 ($a,$i) =                 if (($i >= $s))
507+                    then $a
508+                    else throw("List size exceeds 15")
509+
510+                $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)
511+                }
512+            let d = $t02090020948._1
513+            let found = $t02090020948._2
514+            if (found)
515+                then d
516+                else throw(("D calculation error, D = " + toString(d)))
517+            }
518+    }
519+
520+
521+func getDOld (xp) = {
522+    let n = big2
523+    let xp0 = xp[0]
524+    let xp1 = xp[1]
525+    let aPrecision = parseBigIntValue(Amult)
526+    let a = (parseBigIntValue(A) * aPrecision)
527+    let s = (xp0 + xp1)
528+    if ((s == big0))
529+        then big0
530+        else {
531+            let ann = (a * n)
532+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
533+            let ann_s_aPrecision = ((ann * s) / aPrecision)
534+            let ann_aPrecision = (ann - aPrecision)
535+            let n1 = (n + big1)
536+            func calc (acc,cur) =             {
537+                let $t02157721597 = acc
538+                let d = $t02157721597._1
539+                let found = $t02157721597._2
540+                if ((found != unit))
541+                    then acc
542+                    else {
543+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
544+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
545+                        let dDiff = absBigInt((dNext - value(d)))
546+                        if ((big1 >= dDiff))
547+                            then $Tuple2(dNext, cur)
548+                            else $Tuple2(dNext, unit)
549+                        }
550+                }
551+
552+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
553+            let $t02201822065 = {
554+                let $l = arr
555+                let $s = size($l)
556+                let $acc0 = $Tuple2(s, unit)
557+                func $f0_1 ($a,$i) =                 if (($i >= $s))
558+                    then $a
559+                    else calc($a, $l[$i])
560+
561+                func $f0_2 ($a,$i) =                 if (($i >= $s))
562+                    then $a
563+                    else throw("List size exceeds 15")
564+
565+                $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)
566+                }
567+            let d = $t02201822065._1
568+            let found = $t02201822065._2
569+            if ((found != unit))
570+                then d
571+                else throw(("D calculation error, D = " + toString(d)))
572+            }
573+    }
574+
575+
576+func getYD (xp,i,D) = {
577+    let n = big2
578+    let x = xp[if ((i == 0))
579+        then 1
580+        else 0]
581+    let aPrecision = parseBigIntValue(Amult)
582+    let a = (parseBigIntValue(A) * aPrecision)
583+    let s = x
584+    let ann = (a * n)
585+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
586+    let b = ((s + ((D * aPrecision) / ann)) - D)
587+    func calc (acc,cur) =     {
588+        let $t02256522585 = acc
589+        let y = $t02256522585._1
590+        let found = $t02256522585._2
591+        if ((found != unit))
592+            then acc
593+            else {
594+                let yNext = (((y * y) + c) / ((big2 * y) + b))
595+                let yDiff = absBigInt((yNext - value(y)))
596+                if ((big1 >= yDiff))
597+                    then $Tuple2(yNext, cur)
598+                    else $Tuple2(yNext, unit)
599+                }
600+        }
601+
602+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
603+    let $t02289222939 = {
604+        let $l = arr
605+        let $s = size($l)
606+        let $acc0 = $Tuple2(D, unit)
607+        func $f0_1 ($a,$i) =         if (($i >= $s))
608+            then $a
609+            else calc($a, $l[$i])
610+
611+        func $f0_2 ($a,$i) =         if (($i >= $s))
612+            then $a
613+            else throw("List size exceeds 15")
614+
615+        $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)
616+        }
617+    let y = $t02289222939._1
618+    let found = $t02289222939._2
619+    if ((found != unit))
620+        then y
621+        else throw(("Y calculation error, Y = " + toString(y)))
622+    }
623+
624+
625+func calcDLp (amountBalance,priceBalance,lpEmission) = {
626+    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
627+    if ((lpEmission == big0))
628+        then big0
629+        else updatedDLp
630+    }
631+
632+
633+func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
634+    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
635+    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
636+    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
637+    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
638+    currentDLp
639+    }
640+
641+
642+func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
643+    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
644+    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
645+    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
646+    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
647+    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
648+    $Tuple2(actions, updatedDLp)
649+    }
650+
651+
652+func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
653+    then true
654+    else throwErr("updated DLp lower than current DLp")
655+
656+
657+func validateMatcherOrderAllowed (order) = {
658+    let amountAssetAmount = order.amount
659+    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
660+    let $t02487825090 = if ((order.orderType == Buy))
661+        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
662+        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
663+    let amountAssetBalanceDelta = $t02487825090._1
664+    let priceAssetBalanceDelta = $t02487825090._2
450665     if (if (if (igs())
451666         then true
452-        else (sts == PoolMatcherDis))
667+        else (cfgPoolStatus == PoolMatcherDis))
453668         then true
454-        else (sts == PoolShutdown))
669+        else (cfgPoolStatus == PoolShutdown))
455670         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-            }
671+        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
672+            then true
673+            else (order.assetPair.priceAsset != cfgPriceAssetId))
674+            then throw("Wr assets")
675+            else {
676+                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
677+                let $t02542025520 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
678+                let unusedActions = $t02542025520._1
679+                let dLpNew = $t02542025520._2
680+                let isOrderValid = (dLpNew >= dLp)
681+                isOrderValid
682+                }
479683     }
480684 
481685 
511715     }
512716 
513717 
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-
618718 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)
719+    let amId = toBase58String(value(cfgAmountAssetId))
720+    let prId = toBase58String(value(cfgPriceAssetId))
721+    let lpId = cfgLpAssetId
722+    let amtDcm = cfgAmountAssetDecimals
723+    let priceDcm = cfgPriceAssetDecimals
724+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
626725     let chechEmission = if ((lpAssetEmission > big0))
627726         then true
628727         else throw("initial deposit requires all coins")
630729         then {
631730             let amBalance = getAccBalance(amId)
632731             let prBalance = getAccBalance(prId)
633-            let $t02460425066 = if ((txId == ""))
732+            let $t02778628248 = if ((txId == ""))
634733                 then $Tuple2(amBalance, prBalance)
635734                 else if ((pmtAssetId == amId))
636735                     then if ((pmtAmtRaw > amBalance))
641740                             then throw("invalid payment amount")
642741                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
643742                         else throw("wrong pmtAssetId")
644-            let amBalanceOld = $t02460425066._1
645-            let prBalanceOld = $t02460425066._2
646-            let $t02507225248 = if ((pmtAssetId == amId))
743+            let amBalanceOld = $t02778628248._1
744+            let prBalanceOld = $t02778628248._2
745+            let $t02825428430 = if ((pmtAssetId == amId))
647746                 then $Tuple2(pmtAmtRaw, 0)
648747                 else if ((pmtAssetId == prId))
649748                     then $Tuple2(0, pmtAmtRaw)
650749                     else throw("invalid payment")
651-            let amAmountRaw = $t02507225248._1
652-            let prAmountRaw = $t02507225248._2
653-            let $t02525225506 = if (withTakeFee)
750+            let amAmountRaw = $t02825428430._1
751+            let prAmountRaw = $t02825428430._2
752+            let $t02843428688 = if (withTakeFee)
654753                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
655754                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
656-            let amAmount = $t02525225506._1
657-            let prAmount = $t02525225506._2
658-            let feeAmount = $t02525225506._3
755+            let amAmount = $t02843428688._1
756+            let prAmount = $t02843428688._2
757+            let feeAmount = $t02843428688._3
659758             let amBalanceNew = (amBalanceOld + amAmount)
660759             let prBalanceNew = (prBalanceOld + prAmount)
661760             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
665764                 else throw()
666765             if ((checkD == checkD))
667766                 then {
668-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
767+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
669768                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
670769                     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))]
671770                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
682781 
683782 
684783 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]
784+    let lpId = toBase58String(value(cfgLpAssetId))
785+    let amId = toBase58String(value(cfgAmountAssetId))
786+    let prId = toBase58String(value(cfgPriceAssetId))
787+    let amDecimals = cfgAmountAssetDecimals
788+    let prDecimals = cfgPriceAssetDecimals
789+    let poolStatus = cfgPoolStatus
692790     let userAddress = if ((caller == restContract))
693791         then originCaller
694792         else caller
695793     let pmt = value(payments[0])
696794     let pmtAssetId = value(pmt.assetId)
697795     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))
796+    let currentDLp = calcCurrentDLp(big0, big0, big0)
797+    if ((currentDLp == currentDLp))
798+        then {
799+            let txId58 = toBase58String(transactionId)
800+            if ((lpId != toBase58String(pmtAssetId)))
801+                then throw("Wrong LP")
802+                else {
803+                    let amBalance = getAccBalance(amId)
804+                    let prBalance = getAccBalance(prId)
805+                    let $t03073830849 = {
806+                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
807+                        if ($isInstanceOf(@, "(Int, Int)"))
808+                            then @
809+                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
810+                        }
811+                    if (($t03073830849 == $t03073830849))
738812                         then {
739-                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740-                            if ((burn == burn))
741-                                then $Tuple2(state, totalAmount)
813+                            let feeAmount = $t03073830849._2
814+                            let totalGet = $t03073830849._1
815+                            let totalAmount = if (if ((minOutAmount > 0))
816+                                then (minOutAmount > totalGet)
817+                                else false)
818+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
819+                                else totalGet
820+                            let $t03103931346 = if ((outAssetId == amId))
821+                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
822+                                else if ((outAssetId == prId))
823+                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
824+                                    else throw("invalid out asset id")
825+                            let outAm = $t03103931346._1
826+                            let outPr = $t03103931346._2
827+                            let amBalanceNew = $t03103931346._3
828+                            let prBalanceNew = $t03103931346._4
829+                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
830+                            let curPr = f1(curPrX18, scale8)
831+                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
832+                                then unit
833+                                else fromBase58String(outAssetId)
834+                            let sendFeeToMatcher = if ((feeAmount > 0))
835+                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
836+                                else nil
837+                            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)
838+                            if ((state == state))
839+                                then {
840+                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
841+                                    if ((burn == burn))
842+                                        then {
843+                                            let $t03213132481 = {
844+                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
845+                                                    then 0
846+                                                    else feeAmount
847+                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
848+                                                    then true
849+                                                    else false
850+                                                if (outInAmountAsset)
851+                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
852+                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
853+                                                }
854+                                            let amountAssetBalanceDelta = $t03213132481._1
855+                                            let priceAssetBalanceDelta = $t03213132481._2
856+                                            let $t03248432592 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
857+                                            let refreshDLpActions = $t03248432592._1
858+                                            let updatedDLp = $t03248432592._2
859+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
860+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
861+                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
862+                                                else throw("Strict value is not equal to itself.")
863+                                            }
864+                                        else throw("Strict value is not equal to itself.")
865+                                    }
742866                                 else throw("Strict value is not equal to itself.")
743867                             }
744868                         else throw("Strict value is not equal to itself.")
745869                     }
746-                else throw("Strict value is not equal to itself.")
747870             }
871+        else throw("Strict value is not equal to itself.")
748872     }
749873 
750874 
849973         else if ((size(i.payments) != 2))
850974             then throw("2 pmnts expd")
851975             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))
976+                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
977+                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
978+                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
979+                if ((amountAssetBalance == amountAssetBalance))
862980                     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))
981+                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
982+                        if ((priceAssetBalance == priceAssetBalance))
870983                             then {
871-                                let sa = if ((amDiff > 0))
872-                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873-                                    else nil
874-                                if ((sa == sa))
984+                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
985+                                if ((lpAssetEmission == lpAssetEmission))
875986                                     then {
876-                                        let sp = if ((prDiff > 0))
877-                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878-                                            else nil
879-                                        if ((sp == sp))
987+                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
988+                                        if ((currentDLp == currentDLp))
880989                                             then {
881-                                                let lpTrnsfr = if (autoStake)
990+                                                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, "")
991+                                                let emitLpAmt = e._2
992+                                                let lpAssetId = e._7
993+                                                let state = e._9
994+                                                let amDiff = e._10
995+                                                let prDiff = e._11
996+                                                let amId = e._12
997+                                                let prId = e._13
998+                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
999+                                                if ((r == r))
8821000                                                     then {
883-                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884-                                                        if ((ss == ss))
885-                                                            then nil
1001+                                                        let el =                                                         match r {
1002+                                                            case legacy: Address => 
1003+                                                                invoke(legacy, "emit", [emitLpAmt], nil)
1004+                                                            case _ => 
1005+                                                                unit
1006+                                                        }
1007+                                                        if ((el == el))
1008+                                                            then {
1009+                                                                let sa = if ((amDiff > 0))
1010+                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1011+                                                                    else nil
1012+                                                                if ((sa == sa))
1013+                                                                    then {
1014+                                                                        let sp = if ((prDiff > 0))
1015+                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1016+                                                                            else nil
1017+                                                                        if ((sp == sp))
1018+                                                                            then {
1019+                                                                                let lpTrnsfr = if (autoStake)
1020+                                                                                    then {
1021+                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1022+                                                                                        if ((ss == ss))
1023+                                                                                            then nil
1024+                                                                                            else throw("Strict value is not equal to itself.")
1025+                                                                                        }
1026+                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1027+                                                                                let $t03674136883 = refreshDLpInternal(0, 0, 0)
1028+                                                                                let refreshDLpActions = $t03674136883._1
1029+                                                                                let updatedDLp = $t03674136883._2
1030+                                                                                let check = if ((updatedDLp >= currentDLp))
1031+                                                                                    then true
1032+                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1033+                                                                                if ((check == check))
1034+                                                                                    then {
1035+                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1036+                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1037+                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1038+                                                                                            else throw("Strict value is not equal to itself.")
1039+                                                                                        }
1040+                                                                                    else throw("Strict value is not equal to itself.")
1041+                                                                                }
1042+                                                                            else throw("Strict value is not equal to itself.")
1043+                                                                        }
1044+                                                                    else throw("Strict value is not equal to itself.")
1045+                                                                }
8861046                                                             else throw("Strict value is not equal to itself.")
8871047                                                         }
888-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889-                                                (state ++ lpTrnsfr)
1048+                                                    else throw("Strict value is not equal to itself.")
8901049                                                 }
8911050                                             else throw("Strict value is not equal to itself.")
8921051                                         }
9241083         else throwErr("exactly 1 payment are expected")]
9251084     if ((checks == checks))
9261085         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])
1086+            let amId = toBase58String(value(cfgAmountAssetId))
1087+            let prId = toBase58String(value(cfgPriceAssetId))
1088+            let lpId = cfgLpAssetId
1089+            let amDecimals = cfgAmountAssetDecimals
1090+            let prDecimals = cfgPriceAssetDecimals
9331091             let userAddress = if ((i.caller == this))
9341092                 then i.originCaller
9351093                 else i.caller
9361094             let pmt = value(i.payments[0])
9371095             let pmtAssetId = toBase58String(value(pmt.assetId))
9381096             let pmtAmt = pmt.amount
939-            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940-            if (($t03347833636 == $t03347833636))
1097+            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1098+                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1099+                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1100+            if ((currentDLp == currentDLp))
9411101                 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))
1102+                    let $t03852438682 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1103+                    if (($t03852438682 == $t03852438682))
9521104                         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))
1105+                            let feeAmount = $t03852438682._3
1106+                            let state = $t03852438682._2
1107+                            let estimLP = $t03852438682._1
1108+                            let emitLpAmt = if (if ((minOutAmount > 0))
1109+                                then (minOutAmount > estimLP)
1110+                                else false)
1111+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1112+                                else estimLP
1113+                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1114+                            if ((e == e))
9601115                                 then {
961-                                    let lpTrnsfr = if (autoStake)
1116+                                    let el =                                     match e {
1117+                                        case legacy: Address => 
1118+                                            invoke(legacy, "emit", [emitLpAmt], nil)
1119+                                        case _ => 
1120+                                            unit
1121+                                    }
1122+                                    if ((el == el))
9621123                                         then {
963-                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964-                                            if ((ss == ss))
965-                                                then nil
1124+                                            let lpTrnsfr = if (autoStake)
1125+                                                then {
1126+                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1127+                                                    if ((ss == ss))
1128+                                                        then nil
1129+                                                        else throw("Strict value is not equal to itself.")
1130+                                                    }
1131+                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1132+                                            let sendFeeToMatcher = if ((feeAmount > 0))
1133+                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1134+                                                else nil
1135+                                            let $t03949739846 = if ((this == feeCollectorAddress))
1136+                                                then $Tuple2(0, 0)
1137+                                                else {
1138+                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1139+                                                        then true
1140+                                                        else false
1141+                                                    if (paymentInAmountAsset)
1142+                                                        then $Tuple2(-(feeAmount), 0)
1143+                                                        else $Tuple2(0, -(feeAmount))
1144+                                                    }
1145+                                            let amountAssetBalanceDelta = $t03949739846._1
1146+                                            let priceAssetBalanceDelta = $t03949739846._2
1147+                                            let $t03984939957 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1148+                                            let refreshDLpActions = $t03984939957._1
1149+                                            let updatedDLp = $t03984939957._2
1150+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1151+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1152+                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
9661153                                                 else throw("Strict value is not equal to itself.")
9671154                                             }
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)
1155+                                        else throw("Strict value is not equal to itself.")
9731156                                     }
9741157                                 else throw("Strict value is not equal to itself.")
9751158                             }
9891172         then throw("2 pmnts expd")
9901173         else {
9911174             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
1175+            let state = estPut._9
1176+            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1177+            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1178+            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1179+            if ((currentDLp == currentDLp))
1180+                then {
1181+                    let $t04098741052 = refreshDLpInternal(0, 0, 0)
1182+                    let refreshDLpActions = $t04098741052._1
1183+                    let updatedDLp = $t04098741052._2
1184+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1185+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1186+                        then (state ++ refreshDLpActions)
1187+                        else throw("Strict value is not equal to itself.")
1188+                    }
1189+                else throw("Strict value is not equal to itself.")
9931190             }
9941191 
9951192 
9961193 
9971194 @Callable(i)
9981195 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
1196+    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1197+    if ((currentDLp == currentDLp))
1198+        then {
1199+            let r = cg(i)
1200+            let outAmtAmt = r._1
1201+            let outPrAmt = r._2
1202+            let pmtAmt = r._3
1203+            let pmtAssetId = r._4
1204+            let state = r._5
1205+            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1206+            if ((b == b))
1207+                then {
1208+                    let $t04222542307 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1209+                    let refreshDLpActions = $t04222542307._1
1210+                    let updatedDLp = $t04222542307._2
1211+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1212+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1213+                        then (state ++ refreshDLpActions)
1214+                        else throw("Strict value is not equal to itself.")
1215+                    }
1216+                else throw("Strict value is not equal to itself.")
1217+            }
10081218         else throw("Strict value is not equal to itself.")
10091219     }
10101220 
10321242         else throwErr("exactly 1 payment are expected")]
10331243     if ((checks == checks))
10341244         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
1245+            let $t04292543080 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1246+            let state = $t04292543080._1
1247+            let totalAmount = $t04292543080._2
10381248             $Tuple2(state, totalAmount)
10391249             }
10401250         else throw("Strict value is not equal to itself.")
10431253 
10441254 
10451255 @Callable(i)
1256+func refreshDLp () = {
1257+    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1258+    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1259+        then unit
1260+        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1261+    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1262+        then {
1263+            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1264+            let $t04360443668 = refreshDLpInternal(0, 0, 0)
1265+            let dLpUpdateActions = $t04360443668._1
1266+            let updatedDLp = $t04360443668._2
1267+            let actions = if ((dLp != updatedDLp))
1268+                then dLpUpdateActions
1269+                else throwErr("nothing to refresh")
1270+            $Tuple2(actions, toString(updatedDLp))
1271+            }
1272+        else throw("Strict value is not equal to itself.")
1273+    }
1274+
1275+
1276+
1277+@Callable(i)
10461278 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1047-    let poolConfig = gpc()
1048-    let amId = poolConfig[idxAmAsId]
1049-    let prId = poolConfig[idxPrAsId]
1050-    let lpId = poolConfig[idxLPAsId]
1279+    let amId = toBase58String(value(cfgAmountAssetId))
1280+    let prId = toBase58String(value(cfgPriceAssetId))
1281+    let lpId = toBase58String(value(cfgLpAssetId))
10511282     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
10521283     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
10531284     let D0 = getD(xp)
10601291     let newY = getYD(xp, index, D1)
10611292     let dy = (xp[index] - newY)
10621293     let totalGetRaw = max([0, toInt((dy - big1))])
1063-    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064-    let totalGet = $t03720337258._1
1065-    let feeAmount = $t03720337258._2
1294+    let $t04459844653 = takeFee(totalGetRaw, outFee)
1295+    let totalGet = $t04459844653._1
1296+    let feeAmount = $t04459844653._2
10661297     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
10671298     }
10681299 
10701301 
10711302 @Callable(i)
10721303 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1073-    let poolConfig = gpc()
1074-    let amId = poolConfig[idxAmAsId]
1075-    let prId = poolConfig[idxPrAsId]
1076-    let lpId = poolConfig[idxLPAsId]
1304+    let amId = toBase58String(value(cfgAmountAssetId))
1305+    let prId = toBase58String(value(cfgPriceAssetId))
1306+    let lpId = toBase58String(value(cfgLpAssetId))
10771307     let amBalance = getAccBalance(amId)
10781308     let prBalance = getAccBalance(prId)
1079-    let $t03760337718 = {
1309+    let $t04502845143 = {
10801310         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
10811311         if ($isInstanceOf(@, "(Int, Int)"))
10821312             then @
10831313             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
10841314         }
1085-    let totalGet = $t03760337718._1
1086-    let feeAmount = $t03760337718._2
1315+    let totalGet = $t04502845143._1
1316+    let feeAmount = $t04502845143._2
10871317     let r = ego("", lpId, lpAssetAmount, this)
10881318     let outAmAmt = r._1
10891319     let outPrAmt = r._2
11111341         else if ((noLessThenPriceAsset > outPrAmt))
11121342             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
11131343             else {
1114-                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115-                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116-                    then state
1344+                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1345+                if ((currentDLp == currentDLp))
1346+                    then {
1347+                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1348+                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1349+                            then {
1350+                                let $t04630946390 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1351+                                let refreshDLpActions = $t04630946390._1
1352+                                let updatedDLp = $t04630946390._2
1353+                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1354+                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1355+                                    then (state ++ refreshDLpActions)
1356+                                    else throw("Strict value is not equal to itself.")
1357+                                }
1358+                            else throw("Strict value is not equal to itself.")
1359+                        }
11171360                     else throw("Strict value is not equal to itself.")
11181361                 }
11191362     }
11271370         else true
11281371     if ((checkPayments == checkPayments))
11291372         then {
1130-            let cfg = gpc()
11311373             let factoryCfg = gfc()
1132-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1374+            let lpAssetId = cfgLpAssetId
11331375             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1376+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11341377             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
11351378             if ((unstakeInv == unstakeInv))
11361379                 then {
11371380                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1381+                    let outAmAmt = r._1
1382+                    let outPrAmt = r._2
11381383                     let sts = parseIntValue(r._9)
11391384                     let state = r._10
11401385                     let v = if (if (igs())
11461391                         then {
11471392                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11481393                             if ((burnA == burnA))
1149-                                then state
1394+                                then {
1395+                                    let $t04741447495 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1396+                                    let refreshDLpActions = $t04741447495._1
1397+                                    let updatedDLp = $t04741447495._2
1398+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1399+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1400+                                        then (state ++ refreshDLpActions)
1401+                                        else throw("Strict value is not equal to itself.")
1402+                                    }
11501403                                 else throw("Strict value is not equal to itself.")
11511404                             }
11521405                         else throw("Strict value is not equal to itself.")
11701423         else throw("no payments are expected")]
11711424     if ((checks == checks))
11721425         then {
1426+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11731427             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11741428             if ((unstakeInv == unstakeInv))
11751429                 then {
11861440                         then {
11871441                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11881442                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1189-                                then state
1443+                                then {
1444+                                    let $t04874348824 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1445+                                    let refreshDLpActions = $t04874348824._1
1446+                                    let updatedDLp = $t04874348824._2
1447+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1448+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1449+                                        then (state ++ refreshDLpActions)
1450+                                        else throw("Strict value is not equal to itself.")
1451+                                    }
11901452                                 else throw("Strict value is not equal to itself.")
11911453                             }
11921454                         else throw("Strict value is not equal to itself.")
12201482         else throwErr("no payments are expected")]
12211483     if ((checks == checks))
12221484         then {
1223-            let cfg = gpc()
12241485             let factoryCfg = gfc()
1225-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1486+            let lpAssetId = cfgLpAssetId
12261487             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
12271488             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
12281489             if ((unstakeInv == unstakeInv))
12291490                 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
1491+                    let $t04971949907 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1492+                    let state = $t04971949907._1
1493+                    let totalAmount = $t04971949907._2
12331494                     $Tuple2(state, totalAmount)
12341495                     }
12351496                 else throw("Strict value is not equal to itself.")
12411502 
12421503 @Callable(i)
12431504 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
1505+    let $t05003550138 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1506+    let lpAmount = $t05003550138._1
1507+    let state = $t05003550138._2
1508+    let feeAmount = $t05003550138._3
1509+    let bonus = $t05003550138._4
12531510     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12541511     }
12551512 
12571514 
12581515 @Callable(i)
12591516 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
1517+    let $t05028650390 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1518+    let lpAmount = $t05028650390._1
1519+    let state = $t05028650390._2
1520+    let feeAmount = $t05028650390._3
1521+    let bonus = $t05028650390._4
12691522     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12701523     }
12711524 
13501603     match tx {
13511604         case order: Order => 
13521605             let matcherPub = mp()
1353-            let orderValid = moa(order)
1606+            let orderValid = validateMatcherOrderAllowed(order)
13541607             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
13551608             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
13561609             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+
79+func t2 (origVal,origScaleMult) = fraction(origVal, scale18, toBigInt(origScaleMult))
80+
81+
82+func f2 (val,resultScaleMult) = fraction(val, toBigInt(resultScaleMult), scale18)
83+
84+
7285 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7386 
7487 
7588 func abs (val) = if ((zeroBigInt > val))
7689     then -(val)
7790     else val
7891 
7992 
8093 func absBigInt (val) = if ((zeroBigInt > val))
8194     then -(val)
8295     else val
8396 
8497 
8598 func fc () = "%s__factoryContract"
8699 
87100 
88101 func mpk () = "%s__managerPublicKey"
89102 
90103 
91104 func pmpk () = "%s__pendingManagerPublicKey"
92105 
93106 
94107 func pl () = "%s%s__price__last"
95108 
96109 
97110 func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
98111 
99112 
100113 func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
101114 
102115 
103116 func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
104117 
105118 
106119 func aa () = "%s__amountAsset"
107120 
108121 
109122 func pa () = "%s__priceAsset"
110123 
111124 
112125 func amp () = "%s__amp"
113126 
114127 
115128 func ada () = "%s__addonAddr"
116129 
117130 
131+let keyFee = "%s__fee"
132+
133+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
134+
135+let keyDLp = makeString(["%s", "dLp"], SEP)
136+
137+let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
138+
139+let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
140+
141+let dLpRefreshDelayDefault = 1
142+
143+let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
144+
118145 func fcfg () = "%s__factoryConfig"
119146 
120147 
121148 func mtpk () = "%s%s__matcher__publicKey"
122149 
123150 
124151 func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125152 
126153 
127154 func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128155 
129156 
130157 func aps () = "%s__shutdown"
131158 
132159 
133160 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134161 
135162 
136163 func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137164 
138165 
139166 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140167 
141168 
142-func str (val) = match val {
143-    case valStr: String => 
144-        valStr
145-    case _ => 
146-        throw("fail cast to String")
147-}
148-
149-
150169 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151170 
152171 
153172 func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154173 
155174 
156175 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
176+
177+
178+func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
157179 
158180 
159181 let fca = addressFromStringValue(strf(this, fc()))
160182 
161183 let inFee = {
162184     let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
163185     if ($isInstanceOf(@, "Int"))
164186         then @
165187         else throw(($getType(@) + " couldn't be cast to Int"))
166188     }
167189 
168190 let outFee = {
169191     let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
170192     if ($isInstanceOf(@, "Int"))
171193         then @
172194         else throw(($getType(@) + " couldn't be cast to Int"))
173195     }
174196 
175197 let A = strf(this, amp())
176198 
177199 func igs () = valueOrElse(getBoolean(fca, aps()), false)
178200 
179201 
180202 func mp () = fromBase58String(strf(fca, mtpk()))
181203 
182204 
183205 let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
184206 
185207 func gpc () = {
186208     let amtAs = strf(this, aa())
187209     let priceAs = strf(this, pa())
188210     let iPriceAs = intf(fca, mba(priceAs))
189211     let iAmtAs = intf(fca, mba(amtAs))
190212     split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
191213     }
192214 
193215 
194216 func parseAssetId (input) = if ((input == wavesString))
195217     then unit
196218     else fromBase58String(input)
197219 
198220 
199221 func assetIdToString (input) = if ((input == unit))
200222     then wavesString
201223     else toBase58String(value(input))
202224 
203225 
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]))
226+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]))
205227 
206228 
207229 let poolConfigParsed = parsePoolConfig(gpc())
208230 
209-let $t069097095 = poolConfigParsed
231+let $t077427971 = poolConfigParsed
210232 
211-let cfgPoolAddress = $t069097095._1
233+let cfgPoolAddress = $t077427971._1
212234 
213-let cfgPoolStatus = $t069097095._2
235+let cfgPoolStatus = $t077427971._2
214236 
215-let cfgLpAssetId = $t069097095._3
237+let cfgLpAssetId = $t077427971._3
216238 
217-let cfgAmountAssetId = $t069097095._4
239+let cfgAmountAssetId = $t077427971._4
218240 
219-let cfgPriceAssetId = $t069097095._5
241+let cfgPriceAssetId = $t077427971._5
220242 
221-let cfgAmountAssetDecimals = $t069097095._6
243+let cfgAmountAssetDecimals = $t077427971._6
222244 
223-let cfgPriceAssetDecimals = $t069097095._7
245+let cfgPriceAssetDecimals = $t077427971._7
246+
247+let cfgInAmountAssedId = $t077427971._8
248+
249+let cfgInPriceAssetId = $t077427971._9
224250 
225251 func gfc () = split(strf(fca, fcfg()), SEP)
226252 
227253 
228254 let factoryConfig = gfc()
229255 
230256 let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
231257 
232258 let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
233259 
234260 let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
235261 
236262 let restContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactoryRestCntr]), "Invalid gwx contract address")
237263 
238264 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)
239265 
240266 
241267 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)
242268 
243269 
244270 func getAccBalance (assetId) = if ((assetId == "WAVES"))
245271     then wavesBalance(this).available
246272     else assetBalance(this, fromBase58String(assetId))
247273 
248274 
249275 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
276+
277+
278+func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
250279 
251280 
252281 func vad (A1,A2,slippage) = {
253282     let diff = fraction((A1 - A2), scale8BigInt, A2)
254283     let pass = ((slippage - abs(diff)) > zeroBigInt)
255284     if (!(pass))
256285         then throw(("Big slpg: " + toString(diff)))
257286         else $Tuple2(pass, min([A1, A2]))
258287     }
259288 
260289 
261290 func vd (D1,D0,slpg) = {
262291     let diff = fraction(D0, scale8BigInt, D1)
263292     let fail = (slpg > diff)
264293     if (if (fail)
265294         then true
266295         else (D0 > D1))
267296         then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
268297         else fail
269298     }
270299 
271300 
272301 func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
273302     let amtAsAmtX18 = t1(amAmt, amAssetDcm)
274303     let prAsAmtX18 = t1(prAmt, prAssetDcm)
275304     cpbi(prAsAmtX18, amtAsAmtX18)
276305     }
277306 
278307 
279308 func calcPrices (amAmt,prAmt,lpAmt) = {
280-    let cfg = gpc()
281-    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282-    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
309+    let amtAsDcm = cfgAmountAssetDecimals
310+    let prAsDcm = cfgPriceAssetDecimals
283311     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
284312     let amAmtX18 = t1(amAmt, amtAsDcm)
285313     let prAmtX18 = t1(prAmt, prAsDcm)
286314     let lpAmtX18 = t1(lpAmt, scale8)
287315     let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
288316     let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
289317 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
290318     }
291319 
292320 
293321 func calculatePrices (amAmt,prAmt,lpAmt) = {
294322     let p = calcPrices(amAmt, prAmt, lpAmt)
295323 [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
296324     }
297325 
298326 
299327 func takeFee (amount,fee) = {
300328     let feeAmount = if ((fee == 0))
301329         then 0
302330         else fraction(amount, fee, scale8)
303331     $Tuple2((amount - feeAmount), feeAmount)
304332     }
305333 
306334 
307335 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))
336+    let lpId = cfgLpAssetId
337+    let amId = toBase58String(value(cfgAmountAssetId))
338+    let prId = toBase58String(value(cfgPriceAssetId))
339+    let amDcm = cfgAmountAssetDecimals
340+    let prDcm = cfgPriceAssetDecimals
341+    let sts = toString(cfgPoolStatus)
342+    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
343+    if ((toBase58String(lpId) != pmtAssetId))
317344         then throw("Wrong pmt asset")
318345         else {
319346             let amBalance = getAccBalance(amId)
320347             let amBalanceX18 = t1(amBalance, amDcm)
321348             let prBalance = getAccBalance(prId)
322349             let prBalanceX18 = t1(prBalance, prDcm)
323350             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
324351             let curPrice = f1(curPriceX18, scale8)
325352             let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
326353             let lpEmissX18 = t1(lpEmiss, scale8)
327354             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
328355             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
329-            let outAmAmt = f1(outAmAmtX18, amDcm)
330-            let outPrAmt = f1(outPrAmtX18, prDcm)
356+            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
357+            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
331358             let state = if ((txId58 == ""))
332359                 then nil
333360                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
334361                     then unit
335362                     else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
336363                     then unit
337364                     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)]
338365             $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
339366             }
340367     }
341368 
342369 
343370 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]
371+    let lpId = cfgLpAssetId
372+    let amIdStr = toBase58String(value(cfgAmountAssetId))
373+    let prIdStr = toBase58String(value(cfgPriceAssetId))
374+    let inAmIdStr = cfgInAmountAssedId
375+    let inPrIdStr = cfgInPriceAssetId
376+    let amtDcm = cfgAmountAssetDecimals
377+    let priceDcm = cfgPriceAssetDecimals
378+    let sts = toString(cfgPoolStatus)
353379     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
354380     let amBalance = if (isEval)
355381         then getAccBalance(amIdStr)
356382         else if (if (isOneAsset)
357383             then (pmtId == amIdStr)
358384             else false)
359385             then (getAccBalance(amIdStr) - pmtAmt)
360386             else if (isOneAsset)
361387                 then getAccBalance(amIdStr)
362388                 else (getAccBalance(amIdStr) - inAmAmt)
363389     let prBalance = if (isEval)
364390         then getAccBalance(prIdStr)
365391         else if (if (isOneAsset)
366392             then (pmtId == prIdStr)
367393             else false)
368394             then (getAccBalance(prIdStr) - pmtAmt)
369395             else if (isOneAsset)
370396                 then getAccBalance(prIdStr)
371397                 else (getAccBalance(prIdStr) - inPrAmt)
372398     let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
373399     let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
374400     let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
375401     let amBalanceX18 = t1(amBalance, amtDcm)
376402     let prBalanceX18 = t1(prBalance, priceDcm)
377403     let r = if ((lpEm == 0))
378404         then {
379405             let curPriceX18 = zeroBigInt
380406             let slippageX18 = zeroBigInt
381407             let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
382408             $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
383409             }
384410         else {
385411             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
386412             let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
387413             let slippageX18 = t1(slippage, scale8)
388414             if (if (if (validateSlippage)
389415                 then (curPriceX18 != zeroBigInt)
390416                 else false)
391417                 then (slippageRealX18 > slippageX18)
392418                 else false)
393419                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
394420                 else {
395421                     let lpEmissionX18 = t1(lpEm, scale8)
396-                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
422+                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
423+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), CEILING)
398424                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
399425                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
400426                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
401427                     let expAmtAssetAmtX18 = expectedAmts._1
402428                     let expPriceAssetAmtX18 = expectedAmts._2
403-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404-                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
429+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
430+                    $Tuple5((fromX18Round(lpAmtX18, scale8, FLOOR) - 100), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
405431                     }
406432             }
407433     let calcLpAmt = r._1
408434     let calcAmAssetPmt = r._2
409435     let calcPrAssetPmt = r._3
410436     let curPrice = f1(r._4, scale8)
411437     let slippageCalc = f1(r._5, scale8)
412438     if ((0 >= calcLpAmt))
413439         then throw("LP <= 0")
414440         else {
415441             let emitLpAmt = if (!(emitLp))
416442                 then 0
417443                 else calcLpAmt
418444             let amDiff = (inAmAmt - calcAmAssetPmt)
419445             let prDiff = (inPrAmt - calcPrAssetPmt)
420-            let $t01756217907 = if (if (isOneAsset)
446+            let $t01862718972 = if (if (isOneAsset)
421447                 then (pmtId == amIdStr)
422448                 else false)
423449                 then $Tuple2(pmtAmt, 0)
424450                 else if (if (isOneAsset)
425451                     then (pmtId == prIdStr)
426452                     else false)
427453                     then $Tuple2(0, pmtAmt)
428454                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
429-            let writeAmAmt = $t01756217907._1
430-            let writePrAmt = $t01756217907._2
455+            let writeAmAmt = $t01862718972._1
456+            let writePrAmt = $t01862718972._2
431457             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))]
432458             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
433459             }
434460     }
435461 
436462 
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)
463+func getD (xp) = {
464+    let xp0 = xp[0]
465+    let xp1 = xp[1]
466+    let s = (xp0 + xp1)
467+    if ((s == big0))
468+        then big0
469+        else {
470+            let a = parseIntValue(A)
471+            let ann = (a * 2)
472+            let p = fraction(xp0, xp1, big1)
473+            let xp0_xp1_n_n = fraction(p, big4, big1)
474+            let ann_s = fraction(toBigInt(ann), s, big1)
475+            let ann_1 = toBigInt((ann - 1))
476+            func calcDNext (d) =             {
477+                let dd = fraction(d, d, big1)
478+                let ddd = fraction(dd, d, big1)
479+                let dp = fraction(ddd, big1, xp0_xp1_n_n)
480+                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
481+                }
482+
483+            func calc (acc,i) =             if (acc._2)
484+                then acc
485+                else {
486+                    let d = acc._1
487+                    let dNext = calcDNext(d)
488+                    let dDiffRaw = toInt((dNext - value(d)))
489+                    let dDiff = if ((0 > dDiffRaw))
490+                        then -(dDiffRaw)
491+                        else dDiffRaw
492+                    if ((1 >= dDiff))
493+                        then $Tuple2(dNext, true)
494+                        else $Tuple2(dNext, false)
495+                    }
496+
497+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
498+            let $t02090020948 = {
499+                let $l = arr
500+                let $s = size($l)
501+                let $acc0 = $Tuple2(s, false)
502+                func $f0_1 ($a,$i) =                 if (($i >= $s))
503+                    then $a
504+                    else calc($a, $l[$i])
505+
506+                func $f0_2 ($a,$i) =                 if (($i >= $s))
507+                    then $a
508+                    else throw("List size exceeds 15")
509+
510+                $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)
511+                }
512+            let d = $t02090020948._1
513+            let found = $t02090020948._2
514+            if (found)
515+                then d
516+                else throw(("D calculation error, D = " + toString(d)))
517+            }
518+    }
519+
520+
521+func getDOld (xp) = {
522+    let n = big2
523+    let xp0 = xp[0]
524+    let xp1 = xp[1]
525+    let aPrecision = parseBigIntValue(Amult)
526+    let a = (parseBigIntValue(A) * aPrecision)
527+    let s = (xp0 + xp1)
528+    if ((s == big0))
529+        then big0
530+        else {
531+            let ann = (a * n)
532+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
533+            let ann_s_aPrecision = ((ann * s) / aPrecision)
534+            let ann_aPrecision = (ann - aPrecision)
535+            let n1 = (n + big1)
536+            func calc (acc,cur) =             {
537+                let $t02157721597 = acc
538+                let d = $t02157721597._1
539+                let found = $t02157721597._2
540+                if ((found != unit))
541+                    then acc
542+                    else {
543+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
544+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
545+                        let dDiff = absBigInt((dNext - value(d)))
546+                        if ((big1 >= dDiff))
547+                            then $Tuple2(dNext, cur)
548+                            else $Tuple2(dNext, unit)
549+                        }
550+                }
551+
552+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
553+            let $t02201822065 = {
554+                let $l = arr
555+                let $s = size($l)
556+                let $acc0 = $Tuple2(s, unit)
557+                func $f0_1 ($a,$i) =                 if (($i >= $s))
558+                    then $a
559+                    else calc($a, $l[$i])
560+
561+                func $f0_2 ($a,$i) =                 if (($i >= $s))
562+                    then $a
563+                    else throw("List size exceeds 15")
564+
565+                $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)
566+                }
567+            let d = $t02201822065._1
568+            let found = $t02201822065._2
569+            if ((found != unit))
570+                then d
571+                else throw(("D calculation error, D = " + toString(d)))
572+            }
573+    }
574+
575+
576+func getYD (xp,i,D) = {
577+    let n = big2
578+    let x = xp[if ((i == 0))
579+        then 1
580+        else 0]
581+    let aPrecision = parseBigIntValue(Amult)
582+    let a = (parseBigIntValue(A) * aPrecision)
583+    let s = x
584+    let ann = (a * n)
585+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
586+    let b = ((s + ((D * aPrecision) / ann)) - D)
587+    func calc (acc,cur) =     {
588+        let $t02256522585 = acc
589+        let y = $t02256522585._1
590+        let found = $t02256522585._2
591+        if ((found != unit))
592+            then acc
593+            else {
594+                let yNext = (((y * y) + c) / ((big2 * y) + b))
595+                let yDiff = absBigInt((yNext - value(y)))
596+                if ((big1 >= yDiff))
597+                    then $Tuple2(yNext, cur)
598+                    else $Tuple2(yNext, unit)
599+                }
600+        }
601+
602+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
603+    let $t02289222939 = {
604+        let $l = arr
605+        let $s = size($l)
606+        let $acc0 = $Tuple2(D, unit)
607+        func $f0_1 ($a,$i) =         if (($i >= $s))
608+            then $a
609+            else calc($a, $l[$i])
610+
611+        func $f0_2 ($a,$i) =         if (($i >= $s))
612+            then $a
613+            else throw("List size exceeds 15")
614+
615+        $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)
616+        }
617+    let y = $t02289222939._1
618+    let found = $t02289222939._2
619+    if ((found != unit))
620+        then y
621+        else throw(("Y calculation error, Y = " + toString(y)))
622+    }
623+
624+
625+func calcDLp (amountBalance,priceBalance,lpEmission) = {
626+    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
627+    if ((lpEmission == big0))
628+        then big0
629+        else updatedDLp
630+    }
631+
632+
633+func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
634+    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
635+    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
636+    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
637+    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
638+    currentDLp
639+    }
640+
641+
642+func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
643+    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
644+    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
645+    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
646+    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
647+    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
648+    $Tuple2(actions, updatedDLp)
649+    }
650+
651+
652+func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
653+    then true
654+    else throwErr("updated DLp lower than current DLp")
655+
656+
657+func validateMatcherOrderAllowed (order) = {
658+    let amountAssetAmount = order.amount
659+    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
660+    let $t02487825090 = if ((order.orderType == Buy))
661+        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
662+        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
663+    let amountAssetBalanceDelta = $t02487825090._1
664+    let priceAssetBalanceDelta = $t02487825090._2
450665     if (if (if (igs())
451666         then true
452-        else (sts == PoolMatcherDis))
667+        else (cfgPoolStatus == PoolMatcherDis))
453668         then true
454-        else (sts == PoolShutdown))
669+        else (cfgPoolStatus == PoolShutdown))
455670         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-            }
671+        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
672+            then true
673+            else (order.assetPair.priceAsset != cfgPriceAssetId))
674+            then throw("Wr assets")
675+            else {
676+                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
677+                let $t02542025520 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
678+                let unusedActions = $t02542025520._1
679+                let dLpNew = $t02542025520._2
680+                let isOrderValid = (dLpNew >= dLp)
681+                isOrderValid
682+                }
479683     }
480684 
481685 
482686 func cg (i) = if ((size(i.payments) != 1))
483687     then throw("1 pmnt exp")
484688     else {
485689         let pmt = value(i.payments[0])
486690         let pmtAssetId = value(pmt.assetId)
487691         let pmtAmt = pmt.amount
488692         let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
489693         let outAmAmt = r._1
490694         let outPrAmt = r._2
491695         let sts = parseIntValue(r._9)
492696         let state = r._10
493697         if (if (igs())
494698             then true
495699             else (sts == PoolShutdown))
496700             then throw(("Admin blocked: " + toString(sts)))
497701             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
498702         }
499703 
500704 
501705 func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
502706     let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
503707     let sts = parseIntValue(r._8)
504708     if (if (if (igs())
505709         then true
506710         else (sts == PoolPutDis))
507711         then true
508712         else (sts == PoolShutdown))
509713         then throw(("Blocked:" + toString(sts)))
510714         else r
511715     }
512716 
513717 
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-
618718 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)
719+    let amId = toBase58String(value(cfgAmountAssetId))
720+    let prId = toBase58String(value(cfgPriceAssetId))
721+    let lpId = cfgLpAssetId
722+    let amtDcm = cfgAmountAssetDecimals
723+    let priceDcm = cfgPriceAssetDecimals
724+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
626725     let chechEmission = if ((lpAssetEmission > big0))
627726         then true
628727         else throw("initial deposit requires all coins")
629728     if ((chechEmission == chechEmission))
630729         then {
631730             let amBalance = getAccBalance(amId)
632731             let prBalance = getAccBalance(prId)
633-            let $t02460425066 = if ((txId == ""))
732+            let $t02778628248 = if ((txId == ""))
634733                 then $Tuple2(amBalance, prBalance)
635734                 else if ((pmtAssetId == amId))
636735                     then if ((pmtAmtRaw > amBalance))
637736                         then throw("invalid payment amount")
638737                         else $Tuple2((amBalance - pmtAmtRaw), prBalance)
639738                     else if ((pmtAssetId == prId))
640739                         then if ((pmtAmtRaw > prBalance))
641740                             then throw("invalid payment amount")
642741                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
643742                         else throw("wrong pmtAssetId")
644-            let amBalanceOld = $t02460425066._1
645-            let prBalanceOld = $t02460425066._2
646-            let $t02507225248 = if ((pmtAssetId == amId))
743+            let amBalanceOld = $t02778628248._1
744+            let prBalanceOld = $t02778628248._2
745+            let $t02825428430 = if ((pmtAssetId == amId))
647746                 then $Tuple2(pmtAmtRaw, 0)
648747                 else if ((pmtAssetId == prId))
649748                     then $Tuple2(0, pmtAmtRaw)
650749                     else throw("invalid payment")
651-            let amAmountRaw = $t02507225248._1
652-            let prAmountRaw = $t02507225248._2
653-            let $t02525225506 = if (withTakeFee)
750+            let amAmountRaw = $t02825428430._1
751+            let prAmountRaw = $t02825428430._2
752+            let $t02843428688 = if (withTakeFee)
654753                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
655754                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
656-            let amAmount = $t02525225506._1
657-            let prAmount = $t02525225506._2
658-            let feeAmount = $t02525225506._3
755+            let amAmount = $t02843428688._1
756+            let prAmount = $t02843428688._2
757+            let feeAmount = $t02843428688._3
659758             let amBalanceNew = (amBalanceOld + amAmount)
660759             let prBalanceNew = (prBalanceOld + prAmount)
661760             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
662761             let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
663762             let checkD = if ((D1 > D0))
664763                 then true
665764                 else throw()
666765             if ((checkD == checkD))
667766                 then {
668-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
767+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
669768                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
670769                     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))]
671770                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
672771                     let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
673772                     let priceAssetPart = (pmtAmtRaw - amountAssetPart)
674773                     let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
675774                     let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
676775                     $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
677776                     }
678777                 else throw("Strict value is not equal to itself.")
679778             }
680779         else throw("Strict value is not equal to itself.")
681780     }
682781 
683782 
684783 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]
784+    let lpId = toBase58String(value(cfgLpAssetId))
785+    let amId = toBase58String(value(cfgAmountAssetId))
786+    let prId = toBase58String(value(cfgPriceAssetId))
787+    let amDecimals = cfgAmountAssetDecimals
788+    let prDecimals = cfgPriceAssetDecimals
789+    let poolStatus = cfgPoolStatus
692790     let userAddress = if ((caller == restContract))
693791         then originCaller
694792         else caller
695793     let pmt = value(payments[0])
696794     let pmtAssetId = value(pmt.assetId)
697795     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))
796+    let currentDLp = calcCurrentDLp(big0, big0, big0)
797+    if ((currentDLp == currentDLp))
798+        then {
799+            let txId58 = toBase58String(transactionId)
800+            if ((lpId != toBase58String(pmtAssetId)))
801+                then throw("Wrong LP")
802+                else {
803+                    let amBalance = getAccBalance(amId)
804+                    let prBalance = getAccBalance(prId)
805+                    let $t03073830849 = {
806+                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
807+                        if ($isInstanceOf(@, "(Int, Int)"))
808+                            then @
809+                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
810+                        }
811+                    if (($t03073830849 == $t03073830849))
738812                         then {
739-                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740-                            if ((burn == burn))
741-                                then $Tuple2(state, totalAmount)
813+                            let feeAmount = $t03073830849._2
814+                            let totalGet = $t03073830849._1
815+                            let totalAmount = if (if ((minOutAmount > 0))
816+                                then (minOutAmount > totalGet)
817+                                else false)
818+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
819+                                else totalGet
820+                            let $t03103931346 = if ((outAssetId == amId))
821+                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
822+                                else if ((outAssetId == prId))
823+                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
824+                                    else throw("invalid out asset id")
825+                            let outAm = $t03103931346._1
826+                            let outPr = $t03103931346._2
827+                            let amBalanceNew = $t03103931346._3
828+                            let prBalanceNew = $t03103931346._4
829+                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
830+                            let curPr = f1(curPrX18, scale8)
831+                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
832+                                then unit
833+                                else fromBase58String(outAssetId)
834+                            let sendFeeToMatcher = if ((feeAmount > 0))
835+                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
836+                                else nil
837+                            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)
838+                            if ((state == state))
839+                                then {
840+                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
841+                                    if ((burn == burn))
842+                                        then {
843+                                            let $t03213132481 = {
844+                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
845+                                                    then 0
846+                                                    else feeAmount
847+                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
848+                                                    then true
849+                                                    else false
850+                                                if (outInAmountAsset)
851+                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
852+                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
853+                                                }
854+                                            let amountAssetBalanceDelta = $t03213132481._1
855+                                            let priceAssetBalanceDelta = $t03213132481._2
856+                                            let $t03248432592 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
857+                                            let refreshDLpActions = $t03248432592._1
858+                                            let updatedDLp = $t03248432592._2
859+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
860+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
861+                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
862+                                                else throw("Strict value is not equal to itself.")
863+                                            }
864+                                        else throw("Strict value is not equal to itself.")
865+                                    }
742866                                 else throw("Strict value is not equal to itself.")
743867                             }
744868                         else throw("Strict value is not equal to itself.")
745869                     }
746-                else throw("Strict value is not equal to itself.")
747870             }
871+        else throw("Strict value is not equal to itself.")
748872     }
749873 
750874 
751875 func m () = match getString(mpk()) {
752876     case s: String => 
753877         fromBase58String(s)
754878     case _: Unit => 
755879         unit
756880     case _ => 
757881         throw("Match error")
758882 }
759883 
760884 
761885 func pm () = match getString(pmpk()) {
762886     case s: String => 
763887         fromBase58String(s)
764888     case _: Unit => 
765889         unit
766890     case _ => 
767891         throw("Match error")
768892 }
769893 
770894 
771895 let pd = throw("Permission denied")
772896 
773897 func isManager (i) = match m() {
774898     case pk: ByteVector => 
775899         (i.callerPublicKey == pk)
776900     case _: Unit => 
777901         (i.caller == this)
778902     case _ => 
779903         throw("Match error")
780904 }
781905 
782906 
783907 func mm (i) = match m() {
784908     case pk: ByteVector => 
785909         if ((i.callerPublicKey == pk))
786910             then true
787911             else pd
788912     case _: Unit => 
789913         if ((i.caller == this))
790914             then true
791915             else pd
792916     case _ => 
793917         throw("Match error")
794918 }
795919 
796920 
797921 @Callable(i)
798922 func constructor (fc) = {
799923     let c = mm(i)
800924     if ((c == c))
801925         then [StringEntry(fc(), fc)]
802926         else throw("Strict value is not equal to itself.")
803927     }
804928 
805929 
806930 
807931 @Callable(i)
808932 func setManager (pendingManagerPublicKey) = {
809933     let c = mm(i)
810934     if ((c == c))
811935         then {
812936             let cm = fromBase58String(pendingManagerPublicKey)
813937             if ((cm == cm))
814938                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
815939                 else throw("Strict value is not equal to itself.")
816940             }
817941         else throw("Strict value is not equal to itself.")
818942     }
819943 
820944 
821945 
822946 @Callable(i)
823947 func confirmManager () = {
824948     let p = pm()
825949     let hpm = if (isDefined(p))
826950         then true
827951         else throw("No pending manager")
828952     if ((hpm == hpm))
829953         then {
830954             let cpm = if ((i.callerPublicKey == value(p)))
831955                 then true
832956                 else throw("You are not pending manager")
833957             if ((cpm == cpm))
834958                 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
835959                 else throw("Strict value is not equal to itself.")
836960             }
837961         else throw("Strict value is not equal to itself.")
838962     }
839963 
840964 
841965 
842966 @Callable(i)
843967 func put (slip,autoStake) = {
844968     let factCfg = gfc()
845969     let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
846970     let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
847971     if ((0 > slip))
848972         then throw("Wrong slippage")
849973         else if ((size(i.payments) != 2))
850974             then throw("2 pmnts expd")
851975             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))
976+                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
977+                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
978+                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
979+                if ((amountAssetBalance == amountAssetBalance))
862980                     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))
981+                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
982+                        if ((priceAssetBalance == priceAssetBalance))
870983                             then {
871-                                let sa = if ((amDiff > 0))
872-                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873-                                    else nil
874-                                if ((sa == sa))
984+                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
985+                                if ((lpAssetEmission == lpAssetEmission))
875986                                     then {
876-                                        let sp = if ((prDiff > 0))
877-                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878-                                            else nil
879-                                        if ((sp == sp))
987+                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
988+                                        if ((currentDLp == currentDLp))
880989                                             then {
881-                                                let lpTrnsfr = if (autoStake)
990+                                                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, "")
991+                                                let emitLpAmt = e._2
992+                                                let lpAssetId = e._7
993+                                                let state = e._9
994+                                                let amDiff = e._10
995+                                                let prDiff = e._11
996+                                                let amId = e._12
997+                                                let prId = e._13
998+                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
999+                                                if ((r == r))
8821000                                                     then {
883-                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884-                                                        if ((ss == ss))
885-                                                            then nil
1001+                                                        let el =                                                         match r {
1002+                                                            case legacy: Address => 
1003+                                                                invoke(legacy, "emit", [emitLpAmt], nil)
1004+                                                            case _ => 
1005+                                                                unit
1006+                                                        }
1007+                                                        if ((el == el))
1008+                                                            then {
1009+                                                                let sa = if ((amDiff > 0))
1010+                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1011+                                                                    else nil
1012+                                                                if ((sa == sa))
1013+                                                                    then {
1014+                                                                        let sp = if ((prDiff > 0))
1015+                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1016+                                                                            else nil
1017+                                                                        if ((sp == sp))
1018+                                                                            then {
1019+                                                                                let lpTrnsfr = if (autoStake)
1020+                                                                                    then {
1021+                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1022+                                                                                        if ((ss == ss))
1023+                                                                                            then nil
1024+                                                                                            else throw("Strict value is not equal to itself.")
1025+                                                                                        }
1026+                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1027+                                                                                let $t03674136883 = refreshDLpInternal(0, 0, 0)
1028+                                                                                let refreshDLpActions = $t03674136883._1
1029+                                                                                let updatedDLp = $t03674136883._2
1030+                                                                                let check = if ((updatedDLp >= currentDLp))
1031+                                                                                    then true
1032+                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1033+                                                                                if ((check == check))
1034+                                                                                    then {
1035+                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1036+                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1037+                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1038+                                                                                            else throw("Strict value is not equal to itself.")
1039+                                                                                        }
1040+                                                                                    else throw("Strict value is not equal to itself.")
1041+                                                                                }
1042+                                                                            else throw("Strict value is not equal to itself.")
1043+                                                                        }
1044+                                                                    else throw("Strict value is not equal to itself.")
1045+                                                                }
8861046                                                             else throw("Strict value is not equal to itself.")
8871047                                                         }
888-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889-                                                (state ++ lpTrnsfr)
1048+                                                    else throw("Strict value is not equal to itself.")
8901049                                                 }
8911050                                             else throw("Strict value is not equal to itself.")
8921051                                         }
8931052                                     else throw("Strict value is not equal to itself.")
8941053                                 }
8951054                             else throw("Strict value is not equal to itself.")
8961055                         }
8971056                     else throw("Strict value is not equal to itself.")
8981057                 }
8991058     }
9001059 
9011060 
9021061 
9031062 @Callable(i)
9041063 func putOneTknV2 (minOutAmount,autoStake) = {
9051064     let isPoolOneTokenOperationsDisabled = {
9061065         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
9071066         if ($isInstanceOf(@, "Boolean"))
9081067             then @
9091068             else throw(($getType(@) + " couldn't be cast to Boolean"))
9101069         }
9111070     let isPutDisabled = if (if (if (igs())
9121071         then true
9131072         else (cfgPoolStatus == PoolPutDis))
9141073         then true
9151074         else (cfgPoolStatus == PoolShutdown))
9161075         then true
9171076         else isPoolOneTokenOperationsDisabled
9181077     let checks = [if (if (!(isPutDisabled))
9191078         then true
9201079         else isManager(i))
9211080         then true
9221081         else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
9231082         then true
9241083         else throwErr("exactly 1 payment are expected")]
9251084     if ((checks == checks))
9261085         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])
1086+            let amId = toBase58String(value(cfgAmountAssetId))
1087+            let prId = toBase58String(value(cfgPriceAssetId))
1088+            let lpId = cfgLpAssetId
1089+            let amDecimals = cfgAmountAssetDecimals
1090+            let prDecimals = cfgPriceAssetDecimals
9331091             let userAddress = if ((i.caller == this))
9341092                 then i.originCaller
9351093                 else i.caller
9361094             let pmt = value(i.payments[0])
9371095             let pmtAssetId = toBase58String(value(pmt.assetId))
9381096             let pmtAmt = pmt.amount
939-            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940-            if (($t03347833636 == $t03347833636))
1097+            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1098+                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1099+                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1100+            if ((currentDLp == currentDLp))
9411101                 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))
1102+                    let $t03852438682 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1103+                    if (($t03852438682 == $t03852438682))
9521104                         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))
1105+                            let feeAmount = $t03852438682._3
1106+                            let state = $t03852438682._2
1107+                            let estimLP = $t03852438682._1
1108+                            let emitLpAmt = if (if ((minOutAmount > 0))
1109+                                then (minOutAmount > estimLP)
1110+                                else false)
1111+                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1112+                                else estimLP
1113+                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1114+                            if ((e == e))
9601115                                 then {
961-                                    let lpTrnsfr = if (autoStake)
1116+                                    let el =                                     match e {
1117+                                        case legacy: Address => 
1118+                                            invoke(legacy, "emit", [emitLpAmt], nil)
1119+                                        case _ => 
1120+                                            unit
1121+                                    }
1122+                                    if ((el == el))
9621123                                         then {
963-                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964-                                            if ((ss == ss))
965-                                                then nil
1124+                                            let lpTrnsfr = if (autoStake)
1125+                                                then {
1126+                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1127+                                                    if ((ss == ss))
1128+                                                        then nil
1129+                                                        else throw("Strict value is not equal to itself.")
1130+                                                    }
1131+                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1132+                                            let sendFeeToMatcher = if ((feeAmount > 0))
1133+                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1134+                                                else nil
1135+                                            let $t03949739846 = if ((this == feeCollectorAddress))
1136+                                                then $Tuple2(0, 0)
1137+                                                else {
1138+                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1139+                                                        then true
1140+                                                        else false
1141+                                                    if (paymentInAmountAsset)
1142+                                                        then $Tuple2(-(feeAmount), 0)
1143+                                                        else $Tuple2(0, -(feeAmount))
1144+                                                    }
1145+                                            let amountAssetBalanceDelta = $t03949739846._1
1146+                                            let priceAssetBalanceDelta = $t03949739846._2
1147+                                            let $t03984939957 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1148+                                            let refreshDLpActions = $t03984939957._1
1149+                                            let updatedDLp = $t03984939957._2
1150+                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1151+                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1152+                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
9661153                                                 else throw("Strict value is not equal to itself.")
9671154                                             }
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)
1155+                                        else throw("Strict value is not equal to itself.")
9731156                                     }
9741157                                 else throw("Strict value is not equal to itself.")
9751158                             }
9761159                         else throw("Strict value is not equal to itself.")
9771160                     }
9781161                 else throw("Strict value is not equal to itself.")
9791162             }
9801163         else throw("Strict value is not equal to itself.")
9811164     }
9821165 
9831166 
9841167 
9851168 @Callable(i)
9861169 func putForFree (maxSlpg) = if ((0 > maxSlpg))
9871170     then throw("Wrong slpg")
9881171     else if ((size(i.payments) != 2))
9891172         then throw("2 pmnts expd")
9901173         else {
9911174             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
1175+            let state = estPut._9
1176+            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1177+            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1178+            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1179+            if ((currentDLp == currentDLp))
1180+                then {
1181+                    let $t04098741052 = refreshDLpInternal(0, 0, 0)
1182+                    let refreshDLpActions = $t04098741052._1
1183+                    let updatedDLp = $t04098741052._2
1184+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1185+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1186+                        then (state ++ refreshDLpActions)
1187+                        else throw("Strict value is not equal to itself.")
1188+                    }
1189+                else throw("Strict value is not equal to itself.")
9931190             }
9941191 
9951192 
9961193 
9971194 @Callable(i)
9981195 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
1196+    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1197+    if ((currentDLp == currentDLp))
1198+        then {
1199+            let r = cg(i)
1200+            let outAmtAmt = r._1
1201+            let outPrAmt = r._2
1202+            let pmtAmt = r._3
1203+            let pmtAssetId = r._4
1204+            let state = r._5
1205+            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1206+            if ((b == b))
1207+                then {
1208+                    let $t04222542307 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1209+                    let refreshDLpActions = $t04222542307._1
1210+                    let updatedDLp = $t04222542307._2
1211+                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1212+                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1213+                        then (state ++ refreshDLpActions)
1214+                        else throw("Strict value is not equal to itself.")
1215+                    }
1216+                else throw("Strict value is not equal to itself.")
1217+            }
10081218         else throw("Strict value is not equal to itself.")
10091219     }
10101220 
10111221 
10121222 
10131223 @Callable(i)
10141224 func getOneTknV2 (outAssetId,minOutAmount) = {
10151225     let isPoolOneTokenOperationsDisabled = {
10161226         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
10171227         if ($isInstanceOf(@, "Boolean"))
10181228             then @
10191229             else throw(($getType(@) + " couldn't be cast to Boolean"))
10201230         }
10211231     let isGetDisabled = if (if (igs())
10221232         then true
10231233         else (cfgPoolStatus == PoolShutdown))
10241234         then true
10251235         else isPoolOneTokenOperationsDisabled
10261236     let checks = [if (if (!(isGetDisabled))
10271237         then true
10281238         else isManager(i))
10291239         then true
10301240         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
10311241         then true
10321242         else throwErr("exactly 1 payment are expected")]
10331243     if ((checks == checks))
10341244         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
1245+            let $t04292543080 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1246+            let state = $t04292543080._1
1247+            let totalAmount = $t04292543080._2
10381248             $Tuple2(state, totalAmount)
10391249             }
10401250         else throw("Strict value is not equal to itself.")
10411251     }
10421252 
10431253 
10441254 
10451255 @Callable(i)
1256+func refreshDLp () = {
1257+    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1258+    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1259+        then unit
1260+        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1261+    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1262+        then {
1263+            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1264+            let $t04360443668 = refreshDLpInternal(0, 0, 0)
1265+            let dLpUpdateActions = $t04360443668._1
1266+            let updatedDLp = $t04360443668._2
1267+            let actions = if ((dLp != updatedDLp))
1268+                then dLpUpdateActions
1269+                else throwErr("nothing to refresh")
1270+            $Tuple2(actions, toString(updatedDLp))
1271+            }
1272+        else throw("Strict value is not equal to itself.")
1273+    }
1274+
1275+
1276+
1277+@Callable(i)
10461278 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1047-    let poolConfig = gpc()
1048-    let amId = poolConfig[idxAmAsId]
1049-    let prId = poolConfig[idxPrAsId]
1050-    let lpId = poolConfig[idxLPAsId]
1279+    let amId = toBase58String(value(cfgAmountAssetId))
1280+    let prId = toBase58String(value(cfgPriceAssetId))
1281+    let lpId = toBase58String(value(cfgLpAssetId))
10511282     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
10521283     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
10531284     let D0 = getD(xp)
10541285     let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
10551286     let index = if ((outAssetId == amId))
10561287         then 0
10571288         else if ((outAssetId == prId))
10581289             then 1
10591290             else throw("invalid out asset id")
10601291     let newY = getYD(xp, index, D1)
10611292     let dy = (xp[index] - newY)
10621293     let totalGetRaw = max([0, toInt((dy - big1))])
1063-    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064-    let totalGet = $t03720337258._1
1065-    let feeAmount = $t03720337258._2
1294+    let $t04459844653 = takeFee(totalGetRaw, outFee)
1295+    let totalGet = $t04459844653._1
1296+    let feeAmount = $t04459844653._2
10661297     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
10671298     }
10681299 
10691300 
10701301 
10711302 @Callable(i)
10721303 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1073-    let poolConfig = gpc()
1074-    let amId = poolConfig[idxAmAsId]
1075-    let prId = poolConfig[idxPrAsId]
1076-    let lpId = poolConfig[idxLPAsId]
1304+    let amId = toBase58String(value(cfgAmountAssetId))
1305+    let prId = toBase58String(value(cfgPriceAssetId))
1306+    let lpId = toBase58String(value(cfgLpAssetId))
10771307     let amBalance = getAccBalance(amId)
10781308     let prBalance = getAccBalance(prId)
1079-    let $t03760337718 = {
1309+    let $t04502845143 = {
10801310         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
10811311         if ($isInstanceOf(@, "(Int, Int)"))
10821312             then @
10831313             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
10841314         }
1085-    let totalGet = $t03760337718._1
1086-    let feeAmount = $t03760337718._2
1315+    let totalGet = $t04502845143._1
1316+    let feeAmount = $t04502845143._2
10871317     let r = ego("", lpId, lpAssetAmount, this)
10881318     let outAmAmt = r._1
10891319     let outPrAmt = r._2
10901320     let sumOfGetAssets = (outAmAmt + outPrAmt)
10911321     let bonus = if ((sumOfGetAssets == 0))
10921322         then if ((totalGet == 0))
10931323             then 0
10941324             else throw("bonus calculation error")
10951325         else fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
10961326     $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
10971327     }
10981328 
10991329 
11001330 
11011331 @Callable(i)
11021332 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
11031333     let r = cg(i)
11041334     let outAmAmt = r._1
11051335     let outPrAmt = r._2
11061336     let pmtAmt = r._3
11071337     let pmtAssetId = r._4
11081338     let state = r._5
11091339     if ((noLessThenAmtAsset > outAmAmt))
11101340         then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
11111341         else if ((noLessThenPriceAsset > outPrAmt))
11121342             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
11131343             else {
1114-                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115-                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116-                    then state
1344+                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1345+                if ((currentDLp == currentDLp))
1346+                    then {
1347+                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1348+                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1349+                            then {
1350+                                let $t04630946390 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1351+                                let refreshDLpActions = $t04630946390._1
1352+                                let updatedDLp = $t04630946390._2
1353+                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1354+                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1355+                                    then (state ++ refreshDLpActions)
1356+                                    else throw("Strict value is not equal to itself.")
1357+                                }
1358+                            else throw("Strict value is not equal to itself.")
1359+                        }
11171360                     else throw("Strict value is not equal to itself.")
11181361                 }
11191362     }
11201363 
11211364 
11221365 
11231366 @Callable(i)
11241367 func unstakeAndGet (amount) = {
11251368     let checkPayments = if ((size(i.payments) != 0))
11261369         then throw("No pmnts expd")
11271370         else true
11281371     if ((checkPayments == checkPayments))
11291372         then {
1130-            let cfg = gpc()
11311373             let factoryCfg = gfc()
1132-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1374+            let lpAssetId = cfgLpAssetId
11331375             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1376+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11341377             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
11351378             if ((unstakeInv == unstakeInv))
11361379                 then {
11371380                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1381+                    let outAmAmt = r._1
1382+                    let outPrAmt = r._2
11381383                     let sts = parseIntValue(r._9)
11391384                     let state = r._10
11401385                     let v = if (if (igs())
11411386                         then true
11421387                         else (sts == PoolShutdown))
11431388                         then throw(("Blocked: " + toString(sts)))
11441389                         else true
11451390                     if ((v == v))
11461391                         then {
11471392                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11481393                             if ((burnA == burnA))
1149-                                then state
1394+                                then {
1395+                                    let $t04741447495 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1396+                                    let refreshDLpActions = $t04741447495._1
1397+                                    let updatedDLp = $t04741447495._2
1398+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1399+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1400+                                        then (state ++ refreshDLpActions)
1401+                                        else throw("Strict value is not equal to itself.")
1402+                                    }
11501403                                 else throw("Strict value is not equal to itself.")
11511404                             }
11521405                         else throw("Strict value is not equal to itself.")
11531406                     }
11541407                 else throw("Strict value is not equal to itself.")
11551408             }
11561409         else throw("Strict value is not equal to itself.")
11571410     }
11581411 
11591412 
11601413 
11611414 @Callable(i)
11621415 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
11631416     let isGetDisabled = if (igs())
11641417         then true
11651418         else (cfgPoolStatus == PoolShutdown)
11661419     let checks = [if (!(isGetDisabled))
11671420         then true
11681421         else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
11691422         then true
11701423         else throw("no payments are expected")]
11711424     if ((checks == checks))
11721425         then {
1426+            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
11731427             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11741428             if ((unstakeInv == unstakeInv))
11751429                 then {
11761430                     let res = ego(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
11771431                     let outAmAmt = res._1
11781432                     let outPrAmt = res._2
11791433                     let state = res._10
11801434                     let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
11811435                         then true
11821436                         else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
11831437                         then true
11841438                         else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
11851439                     if ((checkAmounts == checkAmounts))
11861440                         then {
11871441                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11881442                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1189-                                then state
1443+                                then {
1444+                                    let $t04874348824 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1445+                                    let refreshDLpActions = $t04874348824._1
1446+                                    let updatedDLp = $t04874348824._2
1447+                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1448+                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1449+                                        then (state ++ refreshDLpActions)
1450+                                        else throw("Strict value is not equal to itself.")
1451+                                    }
11901452                                 else throw("Strict value is not equal to itself.")
11911453                             }
11921454                         else throw("Strict value is not equal to itself.")
11931455                     }
11941456                 else throw("Strict value is not equal to itself.")
11951457             }
11961458         else throw("Strict value is not equal to itself.")
11971459     }
11981460 
11991461 
12001462 
12011463 @Callable(i)
12021464 func unstakeAndGetOneTknV2 (unstakeAmount,outAssetId,minOutAmount) = {
12031465     let isPoolOneTokenOperationsDisabled = {
12041466         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
12051467         if ($isInstanceOf(@, "Boolean"))
12061468             then @
12071469             else throw(($getType(@) + " couldn't be cast to Boolean"))
12081470         }
12091471     let isGetDisabled = if (if (igs())
12101472         then true
12111473         else (cfgPoolStatus == PoolShutdown))
12121474         then true
12131475         else isPoolOneTokenOperationsDisabled
12141476     let checks = [if (if (!(isGetDisabled))
12151477         then true
12161478         else isManager(i))
12171479         then true
12181480         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
12191481         then true
12201482         else throwErr("no payments are expected")]
12211483     if ((checks == checks))
12221484         then {
1223-            let cfg = gpc()
12241485             let factoryCfg = gfc()
1225-            let lpAssetId = fromBase58String(cfg[idxLPAsId])
1486+            let lpAssetId = cfgLpAssetId
12261487             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
12271488             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
12281489             if ((unstakeInv == unstakeInv))
12291490                 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
1491+                    let $t04971949907 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1492+                    let state = $t04971949907._1
1493+                    let totalAmount = $t04971949907._2
12331494                     $Tuple2(state, totalAmount)
12341495                     }
12351496                 else throw("Strict value is not equal to itself.")
12361497             }
12371498         else throw("Strict value is not equal to itself.")
12381499     }
12391500 
12401501 
12411502 
12421503 @Callable(i)
12431504 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
1505+    let $t05003550138 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1506+    let lpAmount = $t05003550138._1
1507+    let state = $t05003550138._2
1508+    let feeAmount = $t05003550138._3
1509+    let bonus = $t05003550138._4
12531510     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12541511     }
12551512 
12561513 
12571514 
12581515 @Callable(i)
12591516 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
1517+    let $t05028650390 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1518+    let lpAmount = $t05028650390._1
1519+    let state = $t05028650390._2
1520+    let feeAmount = $t05028650390._3
1521+    let bonus = $t05028650390._4
12691522     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
12701523     }
12711524 
12721525 
12731526 
12741527 @Callable(i)
12751528 func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
12761529     then throw("denied")
12771530     else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
12781531 
12791532 
12801533 
12811534 @Callable(i)
12821535 func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
12831536     then pd
12841537     else [StringEntry(k, v)]
12851538 
12861539 
12871540 
12881541 @Callable(i)
12891542 func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
12901543     then pd
12911544     else [IntegerEntry(k, v)]
12921545 
12931546 
12941547 
12951548 @Callable(i)
12961549 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
12971550 
12981551 
12991552 
13001553 @Callable(i)
13011554 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
13021555 
13031556 
13041557 
13051558 @Callable(i)
13061559 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
13071560     let pr = calcPrices(amAmt, prAmt, lpAmt)
13081561     $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
13091562     }
13101563 
13111564 
13121565 
13131566 @Callable(i)
13141567 func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
13151568 
13161569 
13171570 
13181571 @Callable(i)
13191572 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
13201573 
13211574 
13221575 
13231576 @Callable(i)
13241577 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
13251578 
13261579 
13271580 
13281581 @Callable(i)
13291582 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, ""))
13301583 
13311584 
13321585 
13331586 @Callable(i)
13341587 func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
13351588     let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
13361589     $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
13371590     }
13381591 
13391592 
13401593 @Verifier(tx)
13411594 func verify () = {
13421595     let targetPublicKey =     match m() {
13431596         case pk: ByteVector => 
13441597             pk
13451598         case _: Unit => 
13461599             tx.senderPublicKey
13471600         case _ => 
13481601             throw("Match error")
13491602     }
13501603     match tx {
13511604         case order: Order => 
13521605             let matcherPub = mp()
1353-            let orderValid = moa(order)
1606+            let orderValid = validateMatcherOrderAllowed(order)
13541607             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
13551608             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
13561609             if (if (if (orderValid)
13571610                 then senderValid
13581611                 else false)
13591612                 then matcherValid
13601613                 else false)
13611614                 then true
13621615                 else toe(orderValid, senderValid, matcherValid)
13631616         case s: SetScriptTransaction => 
13641617             let newHash = blake2b256(value(s.script))
13651618             let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
13661619             let currentHash = scriptHash(this)
13671620             if (if ((allowedHash == newHash))
13681621                 then (currentHash != newHash)
13691622                 else false)
13701623                 then true
13711624                 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
13721625         case _ => 
13731626             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
13741627     }
13751628     }
13761629 
github/deemru/w8io/873ac7e 
447.98 ms ◑