diff --git a/quipuswap_maker_ceiling.tz b/quipuswap_maker_ceiling.tz index 0805e87..cd9f3b7 100644 --- a/quipuswap_maker_ceiling.tz +++ b/quipuswap_maker_ceiling.tz @@ -1,5 +1,5 @@ -parameter (or (or (or (or (unit %pause) (nat %redeemCallback)) (or (unit %returnBalance) (address %setGovernorContract))) (or (or (nat %setMaxDataDelaySec) (nat %setMinTradeDelaySec)) (or (address %setPauseGuardianContract) (address %setQuipuswapContract)))) (or (or (or (address %setReceiverContract) (address %setSpotContract)) (or (nat %setSpreadAmount) (nat %setTokenPrecision))) (or (or (nat %setTradeAmount) (nat %setVolatilityTolerance)) (or (address %setVwapContract) (or (unit %tokenToTezPayment) (unit %unpause)))))); -storage (pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))))); +parameter (or (or (or (or (unit %pause) (nat %redeemCallback)) (or (unit %returnBalance) (address %setGovernorContract))) (or (or (nat %setMaxDataDelaySec) (nat %setMinTradeDelaySec)) (or (address %setPauseGuardianContract) (address %setQuipuswapContract)))) (or (or (or (address %setReceiverContract) (address %setSpotContract)) (or (nat %setSpreadAmount) (nat %setTradeAmount))) (or (or (nat %setVolatilityTolerance) (address %setVwapContract)) (or (unit %tokenToTezPayment) (unit %unpause))))); +storage (pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))); code { UNPAIR; # @parameter : @storage @@ -28,18 +28,18 @@ code FAILWITH; # FAILED }; # @storage # self.data.paused = True # @storage - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - CAR; # address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PUSH bool True; # bool : address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # address : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair address bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + CAR; # address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PUSH bool True; # bool : address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # address : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair address bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { SWAP; # @storage : @parameter%redeemCallback @@ -60,21 +60,21 @@ code }; # @parameter%redeemCallback : @storage SWAP; # @storage : @parameter%redeemCallback # self.data.tokenBalance = params # @storage : @parameter%redeemCallback - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%redeemCallback - SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback - UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback - SWAP; # pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback - UNPAIR; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback - CDR; # nat : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback - DIG 4; # @parameter%redeemCallback : nat : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair @parameter%redeemCallback nat : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair @parameter%redeemCallback nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair @parameter%redeemCallback nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%redeemCallback + SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback + UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback + SWAP; # pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback + UNPAIR; # pair (nat %tokenBalance) (nat %tradeAmount) : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback + CDR; # nat : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%redeemCallback + DIG 4; # @parameter%redeemCallback : nat : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair @parameter%redeemCallback nat : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair @parameter%redeemCallback nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair @parameter%redeemCallback nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair @parameter%redeemCallback nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { IF_LEFT @@ -103,7 +103,7 @@ code CONTRACT %getBalance (pair address (contract nat)); # option (contract (pair address (contract nat))) : @storage IF_NONE { - PUSH int 203; # int : @storage + PUSH int 190; # int : @storage FAILWITH; # FAILED } {}; # @some : @storage @@ -124,14 +124,14 @@ code CONTRACT %transfer (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : @storage IF_NONE { - PUSH int 193; # int : list operation : @storage + PUSH int 180; # int : list operation : @storage FAILWITH; # FAILED } {}; # @some : list operation : @storage PUSH mutez 0; # mutez : @some : list operation : @storage DIG 3; # @storage : mutez : @some : list operation DUP; # @storage : @storage : mutez : @some : list operation - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : @storage : mutez : @some : list operation + GET 5; # pair (nat %tokenBalance) (nat %tradeAmount) : @storage : mutez : @some : list operation CAR; # nat : @storage : mutez : @some : list operation SWAP; # @storage : nat : mutez : @some : list operation DUP; # @storage : @storage : nat : mutez : @some : list operation @@ -165,18 +165,18 @@ code }; # @parameter%setGovernorContract : @storage SWAP; # @storage : @parameter%setGovernorContract # self.data.governorContractAddress = params # @storage : @parameter%setGovernorContract - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setGovernorContract - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setGovernorContract - UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setGovernorContract - CDR; # timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setGovernorContract - DIG 4; # @parameter%setGovernorContract : timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair @parameter%setGovernorContract timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : pair (pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setGovernorContract + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setGovernorContract + UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setGovernorContract + CDR; # timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setGovernorContract + DIG 4; # @parameter%setGovernorContract : timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair @parameter%setGovernorContract timestamp : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : pair (pair (pair (pair @parameter%setGovernorContract timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { IF_LEFT @@ -203,17 +203,17 @@ code }; # @parameter%setMaxDataDelaySec : @storage SWAP; # @storage : @parameter%setMaxDataDelaySec # self.data.maxDataDelaySec = params # @storage : @parameter%setMaxDataDelaySec - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMaxDataDelaySec - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMaxDataDelaySec - UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMaxDataDelaySec - SWAP; # pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMaxDataDelaySec - CDR; # nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMaxDataDelaySec - DIG 4; # @parameter%setMaxDataDelaySec : nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair @parameter%setMaxDataDelaySec nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair @parameter%setMaxDataDelaySec nat : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMaxDataDelaySec + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMaxDataDelaySec + UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMaxDataDelaySec + SWAP; # pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMaxDataDelaySec + CDR; # nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMaxDataDelaySec + DIG 4; # @parameter%setMaxDataDelaySec : nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair @parameter%setMaxDataDelaySec nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair @parameter%setMaxDataDelaySec nat : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair @parameter%setMaxDataDelaySec nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { SWAP; # @storage : @parameter%setMinTradeDelaySec @@ -236,19 +236,19 @@ code }; # @parameter%setMinTradeDelaySec : @storage SWAP; # @storage : @parameter%setMinTradeDelaySec # self.data.minTradeDelaySec = params # @storage : @parameter%setMinTradeDelaySec - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMinTradeDelaySec - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMinTradeDelaySec - UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMinTradeDelaySec - SWAP; # pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMinTradeDelaySec - CAR; # nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setMinTradeDelaySec - DIG 4; # @parameter%setMinTradeDelaySec : nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # nat : @parameter%setMinTradeDelaySec : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair nat @parameter%setMinTradeDelaySec : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair nat @parameter%setMinTradeDelaySec : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMinTradeDelaySec + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMinTradeDelaySec + UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMinTradeDelaySec + SWAP; # pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMinTradeDelaySec + CAR; # nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setMinTradeDelaySec + DIG 4; # @parameter%setMinTradeDelaySec : nat : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # nat : @parameter%setMinTradeDelaySec : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair nat @parameter%setMinTradeDelaySec : pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair nat @parameter%setMinTradeDelaySec : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat @parameter%setMinTradeDelaySec)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { IF_LEFT @@ -273,17 +273,17 @@ code }; # @parameter%setPauseGuardianContract : @storage SWAP; # @storage : @parameter%setPauseGuardianContract # self.data.pauseGuardianContractAddress = params # @storage : @parameter%setPauseGuardianContract - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setPauseGuardianContract - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setPauseGuardianContract - SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setPauseGuardianContract - UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setPauseGuardianContract - CDR; # bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setPauseGuardianContract - DIG 4; # @parameter%setPauseGuardianContract : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair @parameter%setPauseGuardianContract bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setPauseGuardianContract + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setPauseGuardianContract + SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setPauseGuardianContract + UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setPauseGuardianContract + CDR; # bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setPauseGuardianContract + DIG 4; # @parameter%setPauseGuardianContract : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair @parameter%setPauseGuardianContract bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair @parameter%setPauseGuardianContract bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { SWAP; # @storage : @parameter%setQuipuswapContract @@ -306,23 +306,23 @@ code }; # @parameter%setQuipuswapContract : @storage SWAP; # @storage : @parameter%setQuipuswapContract # self.data.quipuswapContractAddress = params # @storage : @parameter%setQuipuswapContract - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - SWAP; # pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - CDR; # address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setQuipuswapContract - DIG 4; # @parameter%setQuipuswapContract : address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair @parameter%setQuipuswapContract address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair @parameter%setQuipuswapContract address : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + SWAP; # pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + CDR; # address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setQuipuswapContract + DIG 4; # @parameter%setQuipuswapContract : address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair @parameter%setQuipuswapContract address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair @parameter%setQuipuswapContract address : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair @parameter%setQuipuswapContract address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { IF_LEFT @@ -351,20 +351,20 @@ code }; # @parameter%setReceiverContract : @storage SWAP; # @storage : @parameter%setReceiverContract # self.data.receiverContractAddress = params # @storage : @parameter%setReceiverContract - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - SWAP; # pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - CAR; # address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setReceiverContract - DIG 4; # @parameter%setReceiverContract : address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # address : @parameter%setReceiverContract : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair address @parameter%setReceiverContract : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair address @parameter%setReceiverContract : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + SWAP; # pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + CAR; # address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setReceiverContract + DIG 4; # @parameter%setReceiverContract : address : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # address : @parameter%setReceiverContract : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair address @parameter%setReceiverContract : pair (address %pauseGuardianContractAddress) (bool %paused) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair address @parameter%setReceiverContract : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address @parameter%setReceiverContract))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { SWAP; # @storage : @parameter%setSpotContract @@ -387,18 +387,18 @@ code }; # @parameter%setSpotContract : @storage SWAP; # @storage : @parameter%setSpotContract # self.data.spotContractAddress = params # @storage : @parameter%setSpotContract - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setSpotContract - SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract - UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract - UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract - CDR; # nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract - DIG 4; # @parameter%setSpotContract : nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair @parameter%setSpotContract nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setSpotContract + SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract + UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract + UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract + CDR; # nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpotContract + DIG 4; # @parameter%setSpotContract : nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair @parameter%setSpotContract nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair @parameter%setSpotContract nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } { IF_LEFT @@ -423,63 +423,20 @@ code }; # @parameter%setSpreadAmount : @storage SWAP; # @storage : @parameter%setSpreadAmount # self.data.spreadAmount = params # @storage : @parameter%setSpreadAmount - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setSpreadAmount - SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount - UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount - UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount - SWAP; # pair (nat %spreadAmount) (address %tokenAddress) : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount - CDR; # address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount - DIG 4; # @parameter%setSpreadAmount : address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair @parameter%setSpreadAmount address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (address %spotContractAddress) (nat %spotPrice) : pair @parameter%setSpreadAmount address : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setSpreadAmount + SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount + UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount + UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount + SWAP; # pair (nat %spreadAmount) (address %tokenAddress) : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount + CDR; # address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setSpreadAmount + DIG 4; # @parameter%setSpreadAmount : address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair @parameter%setSpreadAmount address : pair (address %spotContractAddress) (nat %spotPrice) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (address %spotContractAddress) (nat %spotPrice) : pair @parameter%setSpreadAmount address : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair @parameter%setSpreadAmount address)) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) } - { - SWAP; # @storage : @parameter%setTokenPrecision - # == setTokenPrecision == - # sp.verify(sp.sender == self.data.governorContractAddress, 1) # @storage : @parameter%setTokenPrecision - DUP; # @storage : @storage : @parameter%setTokenPrecision - DUG 2; # @storage : @parameter%setTokenPrecision : @storage - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision : @storage - CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : @parameter%setTokenPrecision : @storage - CAR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : @parameter%setTokenPrecision : @storage - CAR; # address : @parameter%setTokenPrecision : @storage - SENDER; # @sender : address : @parameter%setTokenPrecision : @storage - COMPARE; # int : @parameter%setTokenPrecision : @storage - EQ; # bool : @parameter%setTokenPrecision : @storage - IF - {} - { - PUSH int 1; # int : @parameter%setTokenPrecision : @storage - FAILWITH; # FAILED - }; # @parameter%setTokenPrecision : @storage - SWAP; # @storage : @parameter%setTokenPrecision - # self.data.tokenPrecision = params # @storage : @parameter%setTokenPrecision - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @parameter%setTokenPrecision - SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision - UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision - SWAP; # pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision - UNPAIR; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision - CAR; # nat : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTokenPrecision - DIG 4; # @parameter%setTokenPrecision : nat : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # nat : @parameter%setTokenPrecision : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair nat @parameter%setTokenPrecision : pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair nat @parameter%setTokenPrecision) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair nat @parameter%setTokenPrecision) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTokenPrecision) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTokenPrecision) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTokenPrecision) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - } - { - IF_LEFT - { - IF_LEFT { SWAP; # @storage : @parameter%setTradeAmount # == setTradeAmount == @@ -499,9 +456,30 @@ code PUSH int 1; # int : @parameter%setTradeAmount : @storage FAILWITH; # FAILED }; # @parameter%setTradeAmount : @storage - # self.data.tradeAmount = params # @parameter%setTradeAmount : @storage - UPDATE 7; # @storage - } + SWAP; # @storage : @parameter%setTradeAmount + # self.data.tradeAmount = params # @storage : @parameter%setTradeAmount + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @parameter%setTradeAmount + SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTradeAmount + UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTradeAmount + SWAP; # pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTradeAmount + UNPAIR; # pair (nat %tokenBalance) (nat %tradeAmount) : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTradeAmount + CAR; # nat : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @parameter%setTradeAmount + DIG 4; # @parameter%setTradeAmount : nat : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # nat : @parameter%setTradeAmount : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair nat @parameter%setTradeAmount : pair (nat %volatilityTolerance) (address %vwapContractAddress) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair nat @parameter%setTradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair nat @parameter%setTradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair nat @parameter%setTradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + } + { + IF_LEFT + { + IF_LEFT { SWAP; # @storage : @parameter%setVolatilityTolerance # == setVolatilityTolerance == @@ -522,12 +500,8 @@ code FAILWITH; # FAILED }; # @parameter%setVolatilityTolerance : @storage # self.data.volatilityTolerance = params # @parameter%setVolatilityTolerance : @storage - UPDATE 9; # @storage - }; # @storage - NIL operation; # list operation : @storage - } - { - IF_LEFT + UPDATE 7; # @storage + } { SWAP; # @storage : @parameter%setVwapContract # == setVwapContract == @@ -548,380 +522,352 @@ code FAILWITH; # FAILED }; # @parameter%setVwapContract : @storage # self.data.vwapContractAddress = params # @parameter%setVwapContract : @storage - UPDATE 10; # @storage - NIL operation; # list operation : @storage - } + UPDATE 8; # @storage + }; # @storage + NIL operation; # list operation : @storage + } + { + IF_LEFT { - IF_LEFT - { - DROP; # @storage - # == tokenToTezPayment == - # sp.verify(self.data.paused == False, 5) # @storage - DUP; # @storage : @storage - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - GET 3; # pair (address %pauseGuardianContractAddress) (bool %paused) : @storage - CDR; # bool : @storage - PUSH bool False; # bool : bool : @storage - COMPARE; # int : @storage - EQ; # bool : @storage - IF - {} - { - PUSH int 5; # int : @storage - FAILWITH; # FAILED - }; # @storage - # sp.verify(sp.as_nat(sp.now - self.data.lastTradeTime) >= self.data.minTradeDelaySec, 7) # @storage - DUP; # @storage : @storage - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : @storage - GET 4; # nat : @storage - SWAP; # @storage : nat - DUP; # @storage : @storage : nat - DUG 2; # @storage : nat : @storage - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : nat : @storage - CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : nat : @storage - CAR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : nat : @storage - CDR; # timestamp : nat : @storage - NOW; # @now : timestamp : nat : @storage - SUB; # int : nat : @storage - ISNAT; # option nat : nat : @storage - IF_NONE - { - PUSH int 86; # int : nat : @storage - FAILWITH; # FAILED - } - {}; # @some : nat : @storage - COMPARE; # int : @storage - GE; # bool : @storage - IF - {} - { - PUSH int 7; # int : @storage - FAILWITH; # FAILED - }; # @storage - # self.data.spotPrice = sp.fst(sp.snd(sp.snd(sp.snd(sp.snd(sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.spotContractAddress, sp.TPair(sp.TTimestamp, sp.TPair(sp.TTimestamp, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TNat))))))).open_some(message = 12))))))) # @storage - DUP; # @storage : @storage - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : @storage - SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - CAR; # address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - DIG 4; # @storage : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - GET 3; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - CAR; # pair (address %spotContractAddress) (nat %spotPrice) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - CAR; # address : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PUSH string "XTZ-USD"; # string : address : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - VIEW "getPrice" (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))); # option (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - IF_NONE - { - PUSH int 12; # int : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - FAILWITH; # FAILED - } - {}; # @some : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - GET 11; # nat : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # address : nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair address nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - PAIR; # pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) - SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - # sp.verify(sp.as_nat(sp.now - sp.fst(sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.spotContractAddress, sp.TPair(sp.TTimestamp, sp.TPair(sp.TTimestamp, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TNat))))))).open_some(message = 12)))) <= self.data.maxDataDelaySec, 4) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair address nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # address : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH string "XTZ-USD"; # string : address : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - VIEW "getPrice" (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))); # option (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 12; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - {}; # @some : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # timestamp : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NOW; # @now : timestamp : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SUB; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - ISNAT; # option nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 128; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - {}; # @some : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - COMPARE; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - LE; # bool : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF - {} - { - PUSH int 4; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - # sp.verify(self.data.volatilityTolerance > (((abs(((sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.vwapContractAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 11)) * self.data.tokenPrecision) // 1000000) - ((self.data.spotPrice * self.data.tokenPrecision) // 1000000))) * 100) // ((self.data.spotPrice * self.data.tokenPrecision) // 1000000)), 16) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 1000000; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat - DUG 3; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair address nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CDR; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 133; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 100; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 1000000; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DIG 3; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - DUG 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair address nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CDR; # nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 133; # int : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 1000000; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DIG 4; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat - DUG 6; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 10; # address : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH string "XTZ-USD"; # string : address : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 11; # int : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CDR; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 132; # int : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SUB; # int : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - ABS; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 136; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat - DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 9; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - COMPARE; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GT; # bool : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF - {} - { - PUSH int 16; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - # sp.transfer((self.data.quipuswapContractAddress, self.data.tradeAmount * self.data.tokenPrecision), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TNat), self.data.tokenAddress, entry_point='approve').open_some(message = 15)) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 4; # address : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CONTRACT %approve (pair address nat); # option (contract (pair address nat)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 15; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : @some : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DIG 3; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : mutez : @some : list operation - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : mutez : @some : list operation - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : mutez : @some : list operation - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : mutez : @some : list operation - DUG 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 7; # nat : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DUP 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 5; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PAIR; # pair address nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CONS; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - # sp.transfer(((self.data.tradeAmount * self.data.tokenPrecision, ((((self.data.tradeAmount * self.data.tokenPrecision) // self.data.spotPrice) // 1000000) * (100 + self.data.spreadAmount)) // 100), self.data.receiverContractAddress), sp.tez(0), sp.contract(sp.TPair(sp.TPair(sp.TNat, sp.TNat), sp.TAddress), self.data.quipuswapContractAddress, entry_point='tokenToTezPayment').open_some(message = 13)) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 5; # address : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CONTRACT %tokenToTezPayment (pair (pair nat nat) address); # option (contract (pair (pair nat nat) address)) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 13; # int : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - {}; # @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DUP 4; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 6; # address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 100; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DUP 6; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 3; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 100; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - ADD; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PUSH nat 1000000; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DIG 7; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : address : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : address : mutez : @some : list operation - GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : address : mutez : @some : list operation - CAR; # pair address nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : address : mutez : @some : list operation - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : address : mutez : @some : list operation - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : address : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : address : mutez : @some : list operation - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : address : mutez : @some : list operation - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : address : mutez : @some : list operation - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat : address : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat : address : mutez : @some : list operation - DUG 10; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 7; # nat : nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 144; # int : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 144; # int : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - EDIV; # option (pair nat nat) : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - IF_NONE - { - PUSH int 149; # int : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - FAILWITH; # FAILED - } - { - CAR; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - DIG 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : address : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : address : mutez : @some : list operation - GET 5; # pair (nat %tokenBalance) (nat %tokenPrecision) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : address : mutez : @some : list operation - CDR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : address : mutez : @some : list operation - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : address : mutez : @some : list operation - DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : address : mutez : @some : list operation - DUG 7; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - GET 7; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - MUL; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PAIR; # pair nat nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PAIR; # pair (pair nat nat) address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - CONS; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - # self.data.lastTradeTime = sp.now # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - CAR; # address : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - NOW; # @now : address : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - SWAP; # address : @now : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - PAIR; # pair address @now : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - PAIR; # pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - PAIR; # pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation - PAIR; # pair (pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) : list operation - SWAP; # list operation : pair (pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + DROP; # @storage + # == tokenToTezPayment == + # sp.verify(self.data.paused == False, 5) # @storage + DUP; # @storage : @storage + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + GET 3; # pair (address %pauseGuardianContractAddress) (bool %paused) : @storage + CDR; # bool : @storage + PUSH bool False; # bool : bool : @storage + COMPARE; # int : @storage + EQ; # bool : @storage + IF + {} + { + PUSH int 5; # int : @storage + FAILWITH; # FAILED + }; # @storage + # sp.verify(sp.as_nat(sp.now - self.data.lastTradeTime) >= self.data.minTradeDelaySec, 7) # @storage + DUP; # @storage : @storage + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : @storage + GET 4; # nat : @storage + SWAP; # @storage : nat + DUP; # @storage : @storage : nat + DUG 2; # @storage : nat : @storage + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : nat : @storage + CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : nat : @storage + CAR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : nat : @storage + CDR; # timestamp : nat : @storage + NOW; # @now : timestamp : nat : @storage + SUB; # int : nat : @storage + ISNAT; # option nat : nat : @storage + IF_NONE + { + PUSH int 73; # int : nat : @storage + FAILWITH; # FAILED + } + {}; # @some : nat : @storage + COMPARE; # int : @storage + GE; # bool : @storage + IF + {} + { + PUSH int 7; # int : @storage + FAILWITH; # FAILED + }; # @storage + # self.data.spotPrice = sp.fst(sp.snd(sp.snd(sp.snd(sp.snd(sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.spotContractAddress, sp.TPair(sp.TTimestamp, sp.TPair(sp.TTimestamp, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TNat))))))).open_some(message = 12))))))) # @storage + DUP; # @storage : @storage + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : @storage + SWAP; # pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + UNPAIR; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + UNPAIR; # pair (address %spotContractAddress) (nat %spotPrice) : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + CAR; # address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + DIG 4; # @storage : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + GET 3; # pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress)) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + CAR; # pair (address %spotContractAddress) (nat %spotPrice) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + CAR; # address : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PUSH string "XTZ-USD"; # string : address : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + VIEW "getPrice" (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))); # option (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))) : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + IF_NONE + { + PUSH int 12; # int : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + FAILWITH; # FAILED + } + {}; # @some : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + GET 11; # nat : address : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # address : nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair address nat : pair (nat %spreadAmount) (address %tokenAddress) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + PAIR; # pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) + SWAP; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + # sp.verify(sp.as_nat(sp.now - sp.fst(sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.spotContractAddress, sp.TPair(sp.TTimestamp, sp.TPair(sp.TTimestamp, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TPair(sp.TNat, sp.TNat))))))).open_some(message = 12)))) <= self.data.maxDataDelaySec, 4) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat + DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat + DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair address nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # address : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH string "XTZ-USD"; # string : address : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + VIEW "getPrice" (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))); # option (pair timestamp (pair timestamp (pair nat (pair nat (pair nat (pair nat nat)))))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 12; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + {}; # @some : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # timestamp : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NOW; # @now : timestamp : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SUB; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + ISNAT; # option nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 115; # int : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + {}; # @some : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + COMPARE; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + LE; # bool : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF + {} + { + PUSH int 4; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + # sp.verify(self.data.volatilityTolerance > (((abs(((sp.snd(sp.view("getPrice", 'XTZ-USD', self.data.vwapContractAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 11)) * 1000000000000000000) // 1000000) - ((self.data.spotPrice * 1000000000000000000) // 1000000))) * 100) // ((self.data.spotPrice * 1000000000000000000) // 1000000)), 16) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 3; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair address nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 120; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 100; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair address nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 120; # int : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED } { - DROP; # @storage - # == unpause == - # sp.verify(sp.sender == self.data.governorContractAddress, 1) # @storage - DUP; # @storage : @storage - CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage - CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : @storage - CAR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : @storage - CAR; # address : @storage - SENDER; # @sender : address : @storage - COMPARE; # int : @storage - EQ; # bool : @storage - IF - {} - { - PUSH int 1; # int : @storage - FAILWITH; # FAILED - }; # @storage - # self.data.paused = False # @storage - UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - CAR; # address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PUSH bool False; # bool : address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # address : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair address bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) - PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tokenPrecision)) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - NIL operation; # list operation : list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - SWAP; # list operation : list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) + CAR; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 6; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 8; # address : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH string "XTZ-USD"; # string : address : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 11; # int : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 119; # int : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SUB; # int : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + ABS; # nat : nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 123; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat + DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat + DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 7; # nat : nat : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + COMPARE; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GT; # bool : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF + {} + { + PUSH int 16; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + }; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + # sp.transfer((self.data.quipuswapContractAddress, self.data.tradeAmount * 1000000000000000000), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TNat), self.data.tokenAddress, entry_point='approve').open_some(message = 15)) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 4; # address : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CONTRACT %approve (pair address nat); # option (contract (pair address nat)) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 15; # int : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + {}; # @some : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : @some : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 5; # pair (nat %tokenBalance) (nat %tradeAmount) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 5; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 5; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PAIR; # pair address nat : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CONS; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + # sp.transfer(((self.data.tradeAmount * 1000000000000000000, ((((self.data.tradeAmount * 1000000000000000000) // self.data.spotPrice) // 1000000) * (100 + self.data.spreadAmount)) // 100), self.data.receiverContractAddress), sp.tez(0), sp.contract(sp.TPair(sp.TPair(sp.TNat, sp.TNat), sp.TAddress), self.data.quipuswapContractAddress, entry_point='tokenToTezPayment').open_some(message = 13)) # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + DUP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + DUG 2; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 5; # address : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CONTRACT %tokenToTezPayment (pair (pair nat nat) address); # option (contract (pair (pair nat nat) address)) : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 13; # int : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 4; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 6; # address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 100; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 6; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 100; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + ADD; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 8; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 3; # pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress)) : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CAR; # pair address nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 10; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 5; # pair (nat %tokenBalance) (nat %tradeAmount) : nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 131; # int : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 131; # int : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + EDIV; # option (pair nat nat) : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + IF_NONE + { + PUSH int 136; # int : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + FAILWITH; # FAILED + } + { + CAR; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PUSH nat 1000000000000000000; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + DUP 7; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + GET 5; # pair (nat %tokenBalance) (nat %tradeAmount) : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CDR; # nat : nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + MUL; # nat : nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PAIR; # pair nat nat : address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PAIR; # pair (pair nat nat) address : mutez : @some : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + CONS; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + # self.data.lastTradeTime = sp.now # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + UNPAIR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + CAR; # address : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + NOW; # @now : address : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + SWAP; # address : @now : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + PAIR; # pair address @now : pair (nat %maxDataDelaySec) (nat %minTradeDelaySec) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + PAIR; # pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + PAIR; # pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) : list operation + PAIR; # pair (pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) : list operation + SWAP; # list operation : pair (pair (pair (pair address @now) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + } + { + DROP; # @storage + # == unpause == + # sp.verify(sp.sender == self.data.governorContractAddress, 1) # @storage + DUP; # @storage : @storage + CAR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : @storage + CAR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : @storage + CAR; # pair (address %governorContractAddress) (timestamp %lastTradeTime) : @storage + CAR; # address : @storage + SENDER; # @sender : address : @storage + COMPARE; # int : @storage + EQ; # bool : @storage + IF + {} + { + PUSH int 1; # int : @storage + FAILWITH; # FAILED + }; # @storage + # self.data.paused = False # @storage + UNPAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + UNPAIR; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %pauseGuardianContractAddress) (bool %paused)) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + UNPAIR; # pair (address %pauseGuardianContractAddress) (bool %paused) : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + CAR; # address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PUSH bool False; # bool : address : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # address : bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair address bool : pair (address %quipuswapContractAddress) (address %receiverContractAddress) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + SWAP; # pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec)) : pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress))) : pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress))) + PAIR; # pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : pair (pair (pair (pair (address %governorContractAddress) (timestamp %lastTradeTime)) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair (address %spotContractAddress) (nat %spotPrice)) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair (address %quipuswapContractAddress) (address %receiverContractAddress)))) (pair (pair (pair address nat) (pair (nat %spreadAmount) (address %tokenAddress))) (pair (pair (nat %tokenBalance) (nat %tradeAmount)) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair (nat %maxDataDelaySec) (nat %minTradeDelaySec))) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + NIL operation; # list operation : list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + SWAP; # list operation : list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) ITER { - CONS; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) - PAIR; # pair (list operation) (pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %tradeAmount) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))))) + CONS; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + }; # list operation : pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress)))) + PAIR; # pair (list operation) (pair (pair (pair (pair address timestamp) (pair nat nat)) (pair (pair address bool) (pair address address))) (pair (pair (pair address nat) (pair nat address)) (pair (pair nat nat) (pair (nat %volatilityTolerance) (address %vwapContractAddress))))) };